
Arcade Action 

Thrill packed games 
to test even the 
veteran player 

Old Time 
Favourites 

Traditional games 
from bowling green 
pub and fairground 

Bra inteasers 

Challenging and 
entertaining games 
to strain your brain 


Games of strategy, 
skill — and survival! 


All with full-length 
listings and detailed 
explanations 


All these games are 
also available on a 
REAL cassette. 

See our bargain 
offer on Page 73 








FOR THE BBC 32K O.S. 1.2 


Q*MAN 



NIGHTMARE MAZE 



for the Electron) 


3-D MUNCHY 



GUY IN THE HAT 



CASTLE ASSAULT 



SCREWBALL 



DARTS 



ARTIST £6.95 



Q*MAN'S BROTHER 




DIAMOND MINE 



(ALSO AVAILABLE FOR ELECTRON) 

BANANA MAN 





SOFTWARE 


ALL GAMES ONLY 

£ 5.70 FULLY INCLUSIVE 




17 Cross Coates Road, Grimsby, South Humberside. Tel: 0472 44304. 
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Trapped in the deepest 
recesses of a monster- 
infested mine, you have to 
battle your way upwards 
through 12 levels. Superb 
graphics and cunningly con¬ 
structed screens set new 
standards. 


Masterspy 


Based on Mastermind, this 
intriguing brainteaser is set 
in the deadly world of counter 
espionage. 


ul Draw 


Brilliant simulation of draw 
poker guarantees hours of 
enjoyment for would-be 
Mavericks. 


China Drop 


A baby-sitting program 
might seem the ideal solution 
for insomniacs, but not when 
the baby is two-year-old 
Tobermory, intent on des¬ 
troying his parents’ precious 
china... 


White Widow 

There aren’t fairies at the 
bottom of your garden, but 
there is Arachnida. This aged 
spider needs your help in 
capturing the fleas she needs 
for food. 


Bill Bounces Back 


Continuing the saga of our 
intrepid Spaceman Bill. This 
time he’s trying to make his 
fortune from the teapots of 
the planet Neegus. Of course 
he hadn’t reckoned on the 
cioudhoppers... 


Software Guide 


Comprehensive survey of all 
the latest games software for 
the BBC Micro will letyou find 
exactly the program you 
want. 


A cat and mouse maze game 
for all ages, Splat’s simple 
layout hides a compulsive, 
action-packed game. 


Fair Play 


All the fun of the fair in this 
simulation of a shooting gal¬ 
lery. To achieve a respect¬ 
able score you’ll have to earn 
your ammunition - and that’s 
no simple matter. 

I Crown Green 

A vivid reconstruction of the 
gentle game of crown green 
bowling. This program cap¬ 
tures all the grace and skill 
of the original. 

Sevens 


Two player simulation of the 
standard card game. It needs 
skill and downright cunning if 
you are to rid yourself of all 
your cards before your 
opponent. 

I Cribbage 

Our version of theclassic pub 
card game is certain to give 
you all the fun and frustration 
of the real thing. 

3 Which W ay? 

Perplexing, puzzling, but 
always highly pleasurable, 
this original game of strategy 
for two players will really get 
you thinking. 


Yams 


Based on the traditional dice 
game Yahtzee, it’s easy to 
learn, but its subtle tactics 
will keep you intrigued. 


80 


Patience 


Simulation of the solo card 
game. Like the original it 
offers the same need for 
careful thought, the same 
excitement as you near the 
end. 
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HAVE you got problems! Trapped in 
the darkest recesses of a monster- 
infested mine, you have to battle your 
way upwards through 12 levels. 

There is a lift to help, but you’ll have 
to collect all the keys on each level 
before you can use it safely. 

You can walk on and jump off the 
ledges and conveyor belts found on all 
levels, but the bricks cover the cavern 
floor completely. Be careful though - if 
you jump too far you’re dead! 

You’ll have to watch the conveyor 
belts as well - you can’t walk against the 
direction of travel. You’ll stand still if 
you try! 

And, of course, the final level has its 
own special trick, but you wouldn’t 
want us to spoil it by telling, would you? 

You can even tailor the game to your 
own design. 

You’ll have to change the user- 
defined characters 239 to 254 at the 
correct place in the program for the level 
being altered, then redefine logical 
colours 2 and 1. 

Next, give the start position and 
direction of movement for the two 
hazards. 

You must make sure that if the 
hazard fnoves horizontally there is some 
sort of ground beneath it and that there. 
is a gap in the ground where it is to stop. 

If the hazard moves vertically there 
must be pieces of ground where the 
hazard is to stop. 

Next, give the name of this level. Then 
set the number of pieces of ground. 
Print, at their appropriate positions, the 
keys(KS), stalactites(SS) and trees (T$). 

Now go to the line where the 
positions of that level’s pieces of ground 
are stored and enter your own data. 
Each piece of ground is stored as X 
position, Y position, length and type of 
ground. 

Type 1 is a ledge, type 2 is brick, type 
3 is a left conveyor and type 4 is a right 
conveyor. 

There are 24 different monsters, each 
of 2 x 2 character size. All this takes up 
rather a lot of memory, so take care not 
to add unnecessary spaces and so on 



You've got monster-size problems in Explorer Eddie 
a nerve-wracking split level game 
created by BARRY WAKE LI INI 



VARIABLES 


P$(n) 

Character used for the player. 

M$(n) 

First character for each monster. 

N$(n) 

Second character for the monsters. 

D%(n) 

Horizontal direction of monster n. 

E%(n) 

Vertical direction of monster n. 

A%(n) 

X position of monster n. 

B%(n) 

Y position of monster n. 

HI$(n) 

Name of high scorer n. 

HI%(n) 

Score of high scorer n. 

I%,I 

General variables. 

KS 

Key character. 

S$ 

Stalactite character. 

T$ 

Tree character. 

G$ 

Puts CGOL3,3 in the P$(n) characters. 

C$ 

Puts cursor down and left in characters. 

L% 

Character number being used for monster 0. 

LEV% 

Level being played. 

LIV% 

Number of lives. 

SCR% 

Score. 

FI% 

True if level 13 is reached. 

W% 

Number of keys collected. 

0% 

Last character printed for the player’s character. 

C% 

Character being used for the player’s character. 

J% 

True if you are jumping. 

V% 

Vertical movement of player. 

DE% 

True if hit by monster. 

TIM% 

Time remaining. 

D% 

Used to store direction of motion before a jump. 

X% 

X position of player. 

Y% 

Y position of player. 

Q% 

Number of pieces of ground used on this level. 

S% 

Start of piece of ground. 

F% 

Length of piece of ground. 
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SCORE H 
SLIME^S CROER! 


M s Co 


*"Ld"Le"l-e"L 


10-80 
90 110 
120-150 
160-170 
180-190 
200 
210 
220 

230-240 

250-260 

270 

280-330 

340-370 

380-480 

490-500 

510-520 

530-540 

550-580 

590-620 


Type of ground. 

X position of lift. 

Y position of lift. 

When elsewhere in the program it is used as the character for 
monster 1. 

Horizontal move of player. 

Stage of jump. 

This is two if the player is going left. 

Ranking on table. 

String to be printed in double height. 

Name of level. 


DESCRIPTION OF LINES 

Set up characters, arrays, variables and envelopes. 
Set up screen. 

Move the monsters if they move vertically. 

Move the monsters if they move horizontally. 

Print monsters at their new positions. 

End if player has been hit. 

Decrement clock. 

Check if the player is jumping. 

Check for left, right input. 

Check if player is on a conveyor belt. 

Check for jump input. 

Act on move. 

Move player and restart loop. 

Checks and moves if jumping. 

Subroutine if a key is grabbed. 

Lose a life. 

End of game. 

Input name if on score board. 

Print up high score table. 


5REN (0 The Micro llstr 
l0H0DE5iDJHPI(3>,Hill),Mil),DX(i> 
,EZ(1),AZ(1),BZ(1),HII(8),HIX(8):FQRI 
X a lTQ8:Hll(IX) s ’The Micro Us>r a iHIZ(I 
X)=100s NEXT 

20ENVEL0PE1,1,9,0,0,25,0,0,126,0,0 
,-126,126,126SENVEL0PE2,1,0,0,0,0,0,0 
,127,-3,-2,-1,126,0 

30VDU23,224,28,22,28,8,28,40,84,91 
,23,225,28,0,28,30,54,98,66,99,23,226 
,92,0,28,28,20,20,20,22,23,227,56,104 
,56,16,56,20,42,21B,23,228,56,0,56,12 
0,108,70,66,198,23,229,56,104,56,16,5 
6,16,104,180,23,255,12,10,5,11,16,40, 
64,32 

40VDU23,233,28,22,2B,8,28,8,22,45, 
23,234,58,0,56,56,40,40,40,104,23,235 
,0,255,169,171,137,171,169,255 
50V0U23,230,66,36,169,170,84,56,16 
,16,23,231,255,239,207,129,129,207,23 
9,255,23,232,255,247,243,129,129,243, 
247,255,23,236,206,251,239,255,189,24 
7,166,34,23,237,223,223,223,223,0,251 
,251,251,23,238,127,59,58,62,20,28,8, 
8 

60KI=CHRI255:SI*CHRt238:TI*CHRI230 
:BI*CHRI18+CHRI3+CHRI3:CI=CHRI10+CHRI 
8: PIiO)=6l+CHRI224+CI+CHRI225iPI(1)*6 
I+CHRI233+CI+CHRI226:PI(2)*6I+CHRI227 
+CI+CHRI228:PI 13)=6I+CHR*229+CI+CHRI2 
34:CI=CI+CHRI8:RI=" *+«+' -S80T059 
0 

70LEVX=1!LIVX s 5s SCRX*0 
806I=CHRI17+CHRI2:Ml(0)=6I+CHRI239 
+CHRI240+CI+CHRI241+CHRI242i Ml(1)*61+ 
CHRI243+CHRI244+CI+CHRI245+CHRI246SLZ 
■OsMI(0)=6I+CHRI247+CHRI248+CI+CHRI24 
9+CHRI250iNI(l)=6I+CHRI251+CHRI252+C* 
+CHRI253+CHRI254 

90REST0RE(LEVX«20+640)iC0L0UR1!PRI 
NTTAB(0,30)STRIN6I(20,CHRI2361;:FI%=0 
:DX(0)=0s DX <1)=0:EX<0)=0:EX<1)=0s COLO 
UR3:60SUB(LEVX*60+910):IFF1X S 160T0530 
100HX s 0:0X*0:CX=0iAX«0:JX*0sVX=0sDE 
X=0: TIHX=1200 s DX=0s XX=0:YX«124:FDRIX* 
1TOSZs READSZ,PZ,FZ,KZ:BQSUB(KZ*10+900 
) iNEXTiPROCHt (TZ,UZ) s KX=0s 6C0L3,3s VD 
U5sH0VEXX,YX:PRINTTAB(XX,YX)PI<0):VDU 
4 

110C0L0UR3:C0L0UR128:PRINTTAB(0,1)‘ 
SCORE "j SCRZTABi16,1)STRIN6I(LIVZ-1,P 
1(0)+CHRI11)TAB(0,3)Nl:VDU23,1;0;0;0; 

o; 

120KX-(KX+1)M0D2:LZ s (LX+1)M0D2:F0RI 
X=0T01: IFDX(IXX>0 60T0160 
130IFEX(IX) a -lANDPOINT(AX(IX)*64,(3 
2-BXUX))*32+16)>0 EX(IX)=1 
140IFEX(IX)*1ANDPQ1NT(AX(IX)*64,(32 
-BX(IX))*32-80)>0 EZ(IZ)*-1 
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15060T0180 

160IFDZ(IX) Z -1ANDP0INT(AZ(IX)*64-&4 
,<32-BZ(IX))*32-76)*0DZ<IX)=l 
170IFDZ(IX)=1ANDPOIMT(AZ(IX > *64+128 
,(32-BZ(IX))*32-76)*0DX <IX)“-1 
180AX(IX) s AX(IZ)+DX(IX):BX(IX) s BX(I 
X)+EX(IX)sIFftX CIX)*64>*XX-64ftNDAX(IX) 
*64<XX+64AND(32-BI(IX))*32>YX-36AND(3 
2-BX(IX))*32<YX+68DEZ*1:VDU5:6C0L3,3: 
HOVEXX y YX:PRINTP$(OX):YX a YX-?2sM0VEXZ 
f YXj PRINTP4(OX)iVDU4 
190NEXTiPRINTTAB(AX(0)-OX(0),BX(0)- 
EX(0))RSTAB(AX(0),BX(0))HI(KX)TAB(AX( 
l)-DZ(l),BZ!1)-EZ(1))RITAB(AX(1),BX(1 
)INI(LX) 

2O0IFDEZ*tB0TO51O 

2108C0L0,3:PL0T69,TIHX,876sTIHX=TIH 
X-4iIFTIHX<7560T0510 
220IFJX S 180T0380 
230HX=0sIFINKEY(-98)HX=-64 
240IFINKEY(-67)HX*64 
250IFPOINT(XX+HX+32,YX-84)*2HX*HX-6 
4:IFHZ<-64HZ«-64 

2601FPOINT(XX+HX+24,YX-84)®2HX*HX+6 
4:IFHX>64HX=64 

2701FINKEY(-74)JX=1s ZX-Os DX*HX:HX*0 
:G0T03B0 

280IFXZ+HX<QQRXX+HX>1216HX®O 
290! FPO I NT (XX+HX, YX-64) =0 JX®1: ZX=4r 
DX*0 

300IFLEVX®12ANDPOINT(XX+HX,YX-76)=3 
60SUB630 

3101FHZ=OAMDVX=OFORI-1TO150 s NE X T s 60 
T0120 

320IF(XX+HX>«TXANDXX+HX< TX+128ANDYX 
+VX-UX)ANDHX >360T0640 
330IFPOINT(XX+HX+8,YX+VX-32)-360T05 

10 

340VDU5:AX«0:IFHZ»-640RDX=-64AX»2 
350CX®(CX+1)N0D2:XZ=XZ+HX:YX*YX+VX: 
HOVEXX-HX,YX-VX* PRINTP4(OX)iHOVEXX,YX 
iPRINTPI(CX+AX):OZ®CX+AX:VDU4,23,1; 0; 

0;0;0j 

3601F(AX(0)*64 >=XZ-64ANDAX(0)*64< XX 
+64ANB(32-BZ 10) )*32>Y1-36AND(32-BZ(0) 
)«32<YX+68)OR(AX(1)*64>»XX-64ANDAZ(1) 
*64<XX+64AN0(32-BX(1)1*32 >YX-36AND(3? 
-BX(1))*32<YX+68)60T0510 
37060T0120 

3BOZX*ZX+1:SOUND1,-10,ZZ*4,1:HZ«0:I 
FZX>2ANDZX<6HX*DX 
390IFXX+HX<0QRXX+HZ>1216HX®0 
400VX*32:IFZX>3VX®-32 
4101FYX+VX<920RYX+VX >860VX*0 
420IF(VZ®32ANDPQ1NT(XX+HX+8,YX+VX)« 
3)OR(VX S -32AN0P0INT(XX+HX+8,YX-64)*3) 
60T0510 

430IFVX=-32ANDP0INT(XX+HX,YX-64)>0J 


X s 0:VX=OsDX=OsB0T0230 
440IFVX*32ANDP0INT(XZ+HZ+32,YX+VX)® 
360SUB490:HOVEXX+HX,YZ+VX:VDU255 
450IFVX=32ANDP0INT(XX+HX+8,YX+16)=2 
VX®0:ZX=3 

460IFVX S -32ANDP0INT(XX+HX+32,YX-64) 
=360SUB490iHOVEXX+HX,YX-64:VDU25S 
470IFZX=1160T0510 
48060T0310 

490SOUND2,2,150,1:NX®NZ+1:SCRX®SCRX 
+LEVX*25:COLOURS:PRINTTAB(6,1);SCRX:V 
DU5:6C0L0,0: T IHX®T IHX+64:1 FT 1 HIM 264T 
IHZ®1264 
500RETURN 
510VDU5:6C0L3,3 

520REPEAT:YX=YZ-32:HOVEXX,YX+32:PRI 
NTPI< OX):NOVE XX,YX:PRINTPI(OX):SOUND1 
,-12,YX/4,2:F0RI=lT0150:NEXT:UNTILYX< 
128:SOUNDO,2,6,1:LIVX®LIVX-1:IFLIVX>0 
H00E5:6QT080 

530F0RI=1T03000:NEXT:HQDE7:IF5CRX<H 
IX(8)60T0590 
54©*FX15,1 

550PRINTTAB(8,3)CHR4i36 * THAT'S A NE 
N HI-SCORE a TAB(10,7)CHRS130 11 What if y 
our n*fe a 

560INPUTTAB(0,9)PI:IFLEN(PI)>24PRIN 
TTAB(15,12)CHR$129"Too 1ong."iFORI-IT 
05000:NEXT:CLS:B0T0550 
570RX=9:REPEAT:RX«RX-1:UNTILRX®1ORH 
1X(RX-1)>5CRZ 

580F0RIX=8T0RX+1STEP-1:HI$(IX)®HIII 
IZ-1):HIZ(1Z)®HIX<IZ-1):NEXT;HI$(RX)« 
PI:HIX(RZ)®SCRX 

590H0DE7:F0RIX=0T01:PRINTTAB(4,IX)C 
HRI141CHRI129"EXPL0RER EDDIES HALL OF 
FAHE':NEXTiF0RII»lT08:PRINTTAB(0,IX* 
2+3)iIXTAB(3,IX*2+3)STRING* (28, V) TA 
B(5,IX*2+3)HII(IX)TAB(33,IX*2+3);HIX( 
IX):NEXT 
600*FX15,1 

610PRINTTAB(1,3)CHR$130 a CoI1ect the 
keys to escape the eine.'TAB(2,21)CH 
RI133*Z- Left X - Right RETURN - J 
u«p"TAB(5,23)CHRI131"Press any key to 
play again." 

620QX-6ET:H0DE5:B0T070 
630DX(0)®0:DX(1)®0:EX(0)®0:EX(1)«0: 
SOUNDO,2,6,1:VDU19,0,3;0}:F0RI*1T0100 
:NEXT:VDU19,O,OjO;5:6COL0,O:HOVEXX+HX 
,YX-64:VDU235,4:RETURN 
6408C0L0,3;COLOURS:VDU4:FOR IZ S TIHXT 
075STEP-BIPL0T69,1X,876s SCRX«SCRX+5* P 
RINTTAB(6,1>;SCRX:S0UND1,-13,75,.1:NE 
XT:LEVX»LEVX+1:FORI®1T03000:NEXT:NODE 
5:60T080 

650DEFPR0Cd b1(N4,YX):NI®CHRI141+NI: 
TI«(40-LEN(N$))/2-l:PRINTTABITX,YX)CH 
Rl130NITAB(TX,YX+1)CHRt134NI:ENDPROC 
660DATAO,26,8,1,9,27,11,1,5,23,3,3, 


14,21,6,2,7,20,3,1,0,19,3,1,10,18,6,1 

,4,17,2,2 

670DATA16,17,2,2,0,14,4,l,16,15,2,i 

,16,13,2,1,16,11,2,1,2,11,2,1,6,10,9, 

1 

680DATA0,27,2,1,3,25,4,1,9,25,4,2,1 
5,25,3,1,18,22,2,2,3,20,4,1,9,20,4,3, 

15.20.3.1 

690DATA0,17,2,1,2,15,2,1,6,15,7,2,1 

5.15.5.1.11.12.2.1.15.12.3.2.5.10.2.1 
,9,10,2,1,0,7,4,2,11,B,9,1 

700DATA15,28,2,1,1,26,13,1,18,26,2, 
1,16,24,2,2,18,21,2,2,0,18,2,1,4,19,4 
,4,12,19,4,3,18,19,2,1 
71ODAT A18,17,2,i,3,16,l,l,7,16,6,2, 

18.15.2.1.9.13.2.2.16.13.4.1.2.12.3.2 
,11,12,2,1,5,10,4,1,11,10,2,1,15,10,5 
, 2 , 11 , 22 , 1,1 

720DATA8,27,1,2,5,26,1,1,1,25,2,1,1 

I, 25,1,2,0,22,1,1,8,23,1,1,13,23,3,1, 

II, 21,1,1,16,21,4,2,9,18,1,1 
730DATA0,17,4,1,12,16,1,1,15,16,4,1 

,7,15,1,1,19,15,1,2,0,14,1,1,4,13,2,1 

,0,11,1,1,6,10,13,4,4,9,1,1,0,8,1,1,1 

,8,3,4 

740DATA13,27,4,1,15,24,1,1,1,23,4,1 
,6,23,1,1,9,23,1,1,12,23,1,1,0,22,1,2 
,0,19,4,1,1,17,8,4,11,17,8,4 
750DATA0,16,1,1,9,14,2,2,19,14,1,2, 
0,13,1,1,3,12,2,1,16,12,2,3,4,10,1,1, 
15,10,1,1,0,8,2,1,5,8,3,1,9,8,5,1,16, 

7.4.2 

760DATA0,27,1,1,4,25,13,2,18,27,1,1 
,1,24,2,1,3,22,14,2,9,22,2,4,17,21,2, 

3.5.18.9.1 

770DATA16,18,2,1,4,16,1,1,1,15,1,1, 

3.12.2.4.6.12.3.1.11.12.3.4.17.14.3.2 
,13,9,1,1,13,7,5,1,18,9,1,2 

780DATA2,27,1,1,5,26,1,1,15,26,1,1, 

9.25.3.4.16.24.1.1.3.23.2.1.12.23.2.1 
,17,22,1,1,13,21,2,1,6,20,2,1,18,20,1 
,1,9,19,1,1,2,17,1,1,5,17,1,2,9,17,1, 
1,12,17,2,4,15,17,1,1,16,17,2,4,19,15 
,1,1,2,14,1,1,16,14,1,2,5,13,1,1,5,11 
,1,1,6,11,10,4 

790DATA0,B,2,2,2,B,3,3 
800DATA0,27,1,1,1,27,17,4,11,27,2,2 
,13,23,1,3,2,21,7,3,10,21,1,1,0,19,2, 

1.2.16.1.1.5.16.2.4.11.16.1.2.10.14.1 

B10DATA2,13,1,1,7,13,1,2,3,10,1,1,0 
,8,2,1,4,7,12,3,16,10,4,1,16,13,1,1,1 
6,16,1,1,18,19,1,1,18,22,1,1,18,24,1, 
2 

820DATA1,28,1,1,0,25,1,1,3,25,1,1,1 

3.25.1.3.16.25.1.3.10.24.1.1.6.23.1.1 
,17,23,1,1,2,21,1,2,6,21,1,1,8,20,8,4 
,18,20,1,1 

830DATA3,17,7,3,13,17,1,1,16,15,1,1 
,19,15,1,1,7,14,1,1,3,13,1,1,19,12,1, 
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1.4.11.4.3.1.9.2.4.16.9.4.1 
840DATA8,27,2,2,11,25,1,1,14,25,5,4 

,3,23,1,1,6,23,3,4,2,22,1,1,19,22,1,2 

,14,20,5,3,3,19,10,3,3,16,7,2,11,16,2 

,2,1,14,1,1,9,13,1,4,11,13,1,1,14,13, 

2,4,1,12,2,4,5,12,1,1,18,12,1,1,8,10, 

I, 1,5,9,1,1,15,9,1,1,18,9,1,1,0,8,1,1 
850DATA2,B,l,3,12,8,l,l,9,7,2,l 
860DATA9,27,1,2,11,27,1,2,9,24,1,1, 

II, 24,1,1,0,22,1,2,1,21,18,4,19,19,1, 

1.1.17.18.3.1 

870DATA13,8,3,10,13,9,4,0,10,3,2,16 
,10,2,3,13,9,1,1,10,8,1,3,8,8,1,3,6,8 
,1,3,5,8,1,2,4,8,1,4,10,16,1,2 
880DATA7,27,1,2,10,26,1,1,16,26,1,1 
,8,23,1,3,12,23,4,4,17,23,2,3,1,22,5, 
3,1,19,2,2,4,19,2,2,9,19,1,1,12,19,1, 
3,13,18,4,4 

890DATA19,17,1,2,1,16,1,1,3,15,1,1, 
6,15,6,4,14,18,2,3,1,14,2,4,15,14,1,3 
,18,14,2,3,0,10,3,2,5,11,10,2,3,10,1, 

4 


900DATAO 


910C0L0UR1:COLOUR128s PRINTTAB(SX,PX 
)STRIN6$(FS,CHR$236>}!RETURN 
920CQL0UR1iCOLOUR130:PRINTTABISX,PX 
)STRIN6t(FX,CHRt237)j:RETURN 
930C0L0UR2:COL0UR128:PRINTTAB(SX,PX 
iSTRING*(FX,CHR*231);:RETURN 
940COL0UR2:COL0UR128:PRINTTAB(SI,PX 
)STRIN84(FX,CHR$232);:RETURN 
950DEFPR0C H t < TX,UX):6CQL0,3 8 NOVETX 
,UXs I90VETX+120, UX: PL0T8S, TX+120, UX-64 
:NOVETX,UX-64 s PL0TB5,TX,UX:6C0L0,0:NO 
VETX+16,UX-l2iDRANTX+32,UX-12:DRANTX+ 
32, UX-32: DRAHTX-f 16, UX-32: DRAMTX+16,UX 
-12:NOVETX+104,UX-12:DRANTI+104,UX-32 
960DRANTX+92,UX-32:DRANTX+92,UX-12: 
DRANTX+104,UX-12:8C0L0,3:F0RIX«868TO8 
84STEP4:M0VE0,IX:0RAM1279,IX:NEXT:8C0 
LO,0:HQVE79,876:DRAN1200,876:ENDPROC 
970VDU23,239,0,0,0,195,199,62,13,13 


,23,240,0,6,6,200,240,96,32,32,23,241 
,30,31,60,120,251,63,30,12,23,242,112 
,240,216,60,126,255,239,70 
980VDU23,243,0,96,96,19,15,6,4,4,23 
,244,0,0,0,195,227,124,176,176,23,245 
,14,15,27,56,124,255,247,98,23,246,12 
0,248,124,62,223,252,120,48 
990VDU23,247,1,3,5,15,1,25,63,127,2 
3,248,0,0,128,128,128,152,252,254,23, 
249,199,131,1,1,3,7,12,16,23,250,227, 
193,128,128,192,224,48,8 
1000VDU23,251,1,3,7,207,97,61,63,31, 
23,252,0,0,128,131,134,188,252,248,23 
,253,7,1,1,1,3,7,12,B,23,254,224,128, 
128,128,192,224,48,16 
1010TX a 1152:Ui a 124:VDU19,2,2jOj:Nt a " 
SLIHE'S CAVERN":DX(0) a l:AI(0) a 6:BX(0) 
=8 s EX(1)*-1:AX(1)*4:BX(1)*15:QX=15 s PR 
I NTT AB17,5) StT AB (5,18) StT AB (0, 8 ) Kt T AB 
(14,5)KtTAB(13,14)KtTA8(18,15)Kt 
102ORETURN 

1030VDU23,239,3,14,61,123,247,206,4, 
0,23,240,192,112,188,222,239,115,32,1 
28,23,241,0,0,0,0,0,0,0,0,23,242,128, 
128,128,128,128,144,80,32 
1040VDU23,243,l,2,5,13,ll,li,27,21,2 
3,244,128,64,160,176,208,208,216,168, 
23,245,25,8,0,0,0,4,5,2,23,246,152,16 
,128,128,128,128,0,0 
1050VDU23,247,7,31,60,56,116,226,193 
,194,23,248,224,248,60,30,46,71,131,6 

7.23.249.194.193.226.116.56.60.31.7.2 

3.250.67.131.71.46.30.60.248.224 
1060VDU23,251,7,31,60,48,112,224,193 

,194,23,252,224,248,188,140,142,135,1 

31.127.23.253.254.193.225.113.49.61.3 

1.7.23.254.67.131.7.14.12.60.248.224 
1070VDU19,2,6;0;19,l,4;0;;AX(0)*7iBX 

(0)>16:EX(0) a l:AX(l) s 13:BX(l) a 28:EX(l 
)=-l:Nt a "LOOPY LEVELS":BX a 18:PRINTTAB 
(19,1S)K*TAB(0,13)K*TAB <18,12}K*TAB(1 
7,5)KtTAB(4,19)TtTABI15,7)Tt:TX a 0:UX a 
860 

1080RETURN 

1090VDU23,239,0,6,15,28,16,48,103,79 
,23,240,0,96,240,56,8,12,230,178,23,2 
41,71,103,51,25,12,7,1,0,23,242,162,1 
02,204,152,48,224,128,0 
1100VDU23,243,0,0,0,0,6,15,31,5i,23, 
244,0,0,0,0,96,240,248,204,23,245,28, 
15,7,1,0,0,0,0,23,246,56,248,240,128, 
0 , 0 , 0,0 

1110VDU23,247,1,3,47,109,231,243,250 
,121,23,248,128,192,244,182,231,207,9 

5.158.23.249.118.55.119.103.14.60.60, 
0,23,250,110,236,238,230,112,48,60,60 

1120VDU23,251,1,3,47,109,231,243,251 

,248,23,252,128,192,244,182,231,207,2 

23.31.23.253.119.55.119.103.14.12.60, 
60,23,254,238,236,238,230,112,60,60,0 


1130VDU19,2 t I 5 O 5 19,1,2j0j sQX=21*TX-5 
76:UX a 572:AX(0) a 13:BX(0) a 5:EX(0) a l:AX 
(l) a l:BX(i) a 24:DX(l) a l:Nt a "SILLY STEP 
S":PRINTTAB <19,22)KtTAB(11,20)KtTAB(1 
,13)KfTAB(19,6)K$TAB(6,9>TfTAB(11,15) 
T* 

1140RETURN 

U50VDU23,239,3,15,63,113,111,249,24 
9,255,23,240,192,240,252,142,246,159, 

159.255.23.241.239.223.219.104.124.62 
,15,3,23,242,247,251,219,22,62,124,24 
0,192 

1160VDU23,243,3,15,63,127,113,239,24 

9.255.23.244.192.240.252.254.142.247, 

159.255.23.245.255.247.239.124.127.63 
,15,3,23,246,255,239,247,62,254,252,2 
40,192 

1170VDU23,247,0,0,0,4,12,30,15,7,23, 

248,0,0,0,0,0,0,6,142,23,249,3,0,3,15 

,31,63,31,7,23,250,58,250,246,252,248 

,240,192,0 

1180VDU23 f 251,0,0,0,0,0,0,96,113,23, 
252,0,0,0,32,48,120,240,224,23,253,92 
,95,111,63,31,15,3,0,23,254,192,0,192 
,240,248,252,248,224 
1190VDU19,2,3;0;19,l,5i0;:AX(0) a 9:BX 
(0) a 19:EX(0) a l:AX(l) a 6iBX(l) a 8sDX(l) a 
1sNf“‘SUNSHINE CAVERNS’:TX a 1152:UX a 41 
2 s BX=22 s PRINTTAB(0,18)KSTAB <12,12)K*T 
AB!0,5)KtTAB(ll,5)KtTAB(3,7)TtTAB(16, 
15) T# 

1200RETURN 

1210VDU23,239,15,31,24,24,57,57,48,4 

8.23.240.254.255.31.15.206.142.62.14, 

23.241.112.115.103.103.224.224.255.12 

7.23.242.12.204.156.156.24.24.248.240 
1220VDU23,243,15,31,24,24,57,57,48,4 

3.23.244.254.255.31.15.206.142.62.14, 

23.245.112.115.103.103.224.224.255.12 

7.23.246.12.204.156.156.24.24.248.240 
1230VDU23,247,15,31,2B,28,56,57,51,5 

1.23.248.254.255.31.15.198.230.254.25 

4.23.249.115.103.103.103.240.240.255, 

127.23.250.252.252.204.156.24.56.248, 
240 

1240VDU23,251,15,31,28,28,36,57,51,5 

1.23.252.254.255.31.15.198.230.254.25 

4.23.253.115.103.103.103.240.240.255, 

127.23.254.252.252.204.156.24.56.248, 
240 

1250VDU19,2,5;0;19,l,6;0|sAX(0) a 7:BX 
(0)*15sDX<0)*-l:AX(l)*ll8BX(l)=l5sDX( 
l)-liN* a "A0VERTISIN6 HALL*iTX*1152iUX 
s 860sQX s 22:PRINTTAB<3,13)K$TAB(10,10) 
KtTAB(17,13)KtTAB(1,5)KtTAB(3,29)Tl" 
"Tf "Tt" *TtTAB(2,20)St 
1260PRINTTAB(0,5)StTAB(5,7)TtTAB(11, 
7)TtTAB(13,5)St:PRINTTAB(9,15)Ht(0):R 
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0&MI 


YOUR MOVE 


TAKE A PIECE OF 
OUR SOFTWARE 


VALUE 


ER*BERT 


3D SPACE RANGER 


PINBALL 


REVERSI 


Electron & BBC 32K 
Join Erbert in his cubic 
domain — fast and funny. 
Avoid his unwelcome 
guests. Many features — 
alternative screen displays 
— addictive! 

MACHINE CODE GAME 


BBC 32K (OS 1.0 or 1.2) 
Excellent 3D graphics four 
different scenes. Battle to 
the death star and destroy 
it. 

MACHINE CODE GAME 


Electron & BBC32K 
The classic arcade game 
up to four players with 
bonus features. 

MACHINE CODE GAME 


Electron & BBC32K 
A game of strategy and 
skill — 2 levels 


Games available now at many computer shops-or by 
fast mail order from Microbyte Software. S.A.E. for 
illustrated brochure. Trade enquiries welcome. 

Access 24 hour hot line 06373 6886. 

MICROBYTE SOFTWARE (Dept. E10) 

18 Hilgrove Road, Newquay, Cornwall TR7 2QZ 
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ETURN 

1270VDU23,239,112,136,168,120,60,60, 

30.30.23.240.14.17.21.30.60.60.120.12 
0,23,241,63,58,114,120,61,31,50,50,23 
,242,252,92,78,30,188,248,76,76 

1280VDU23,243,28,42,34,60,120,240,12 
4,30,23,244,56,84,68,60,30,31,62,120, 

23.245.63.63.114.120.63.31.13.13.23.2 
46,252,252,78,30,252,248,176,176 

1290001123,247,3,7,7,76,126,63,15,7,2 
3,248,192,224,241,159,190,248,240,240 
,23,249,3,1,1,1,3,7,14,24,23,250,240, 
224,224,192,192,128,0,0 
1300VDU23,25i,3,7,143,249,123,31,15, 
15,23,252,192,224,224,50,126,252,240, 
224,23,253,15,7,7,3,3,1,0,0,23,254,19 
2,128,128,128,192,224,112,24 
1310VDU19,2,6;0;19,l,l;0;:AZ(0) s 3:Bt 
!0) a 20:DZ!0) a l:AZ(l) a 5:BZ(l) a 16:DZ(l> 
=1:N$*'SP00KY SIDE-CHAMBER":TX«1088:U 
Z»636:0Z*18:PRINTTAB(19,27)K$TAB(7,19 
)K$TAB(10,19)K$TAB(9,14)KITAB(6,29)Tf 
. « T$ . . T$ . . T | 
1320PRINTTAB(4,26)S$* "S*" *S»* * 
SI* "StTAB ( 6 , ll)T$TAB(12,ll)Tf: RETUR 
N 

1330VDU23,239,1,3,7,15,31,25,53,49,2 
3,240,128,192,224,240,248,248,252,236 
,23,241,123,127,127,3,7,63,30,7,23,24 

2,246,246,246,238,220,184,112,224 
1340VDU23,243,l,3,7,15,3i,31,63,55,2 

3,244,128,192,224,240,248,152,172,140 
,23,245,111,111,111,119,59,29,14,7,23 
,246,222,254,254,192,224,248,112,224 
1350VDU23,247,1,3,7,7,7,7,3,1,23,248 
,128,192,224,160,160,96,192,128,23,24 
9,1,15,17,1,7,4,12,0,23,250,240,128,1 
28,128,224,32,32,48 
1360V0U23,251,1,3,3,3,3,3,1,17,23,25 
2,128,192,192,64,64,192,128,128,23,25 

3.15.1.1.1.7.4.4.12.23.254.128.240.13 
6,128,224,32,48,0 

1370VDU19,2,3?05l9,l,4;0;sAZ<0)*3*BZ 
!0) a 9:EZ(0) a l:AZ(l) a 14:BZ(l) a 9:DX(l) a 
-1:N$ a "HINERS DINER":TZ*0:UZ=828:BZ a 2 
6 :PRINTTAB(2,5)S$" *S$TAB(9,21)K*TAB( 
16,11)K$TAB(10,7)K$TAB(3,5)K$TAB(12,2 
9)T$ 

1380RETURN 

1390VDU23,239,3,3,49,31,7,3,3,7,23,2 

40.192.192.142.248.96.192.64.224.23.2 
41,14,220,120,48,0,0,0,0,23,242,112,5 
9,30,12,0,0,0,0 

1400VDU23,243,0,0,3,3,1,15,31,51,23, 

244,0,0,192,192,128,240,120,204,23,24 

5,99,71,30,56,48,24,56,112,23,246,70, 

226,120,28,12,24,28,14 

1410VDU23,247,7,15,31,63,115,99,99,1 


27.23.248.192.224.240.248.156.140.140 
,252,23,249,61,63,28,16,21,31,15,3,23 
,250,120,248,112,16,80,240,224,128 

1420VDU23,251,7,15,31,63,115,99,99,1 

27.23.252.192.224.240.248.156.140.140 
,252,23,253,61,63,31,24,15,3,0,0,23,2 
54,120,248,240,48,224,128,0,0 

1430VDU19,2,l;0;19,l,3;0;:AZ(0) a 3:BZ 
(0) a 19:DZ(0) a l:AZ(l) a ll:BZ(l) a 17iEZ(l 
> a 1:N* a *ANCIENT ARCH*:TZ a 1152 s UZ a 764: 
BZ a 22:PRINTTAB(0,5)KITAB(8,22)K$TAB(7 
,17)K*TAB(7,8IK*TAB(4,22>S$TAB(5,26)T 
I* "T*" *T* 

144ORETURN 

1450VDU23,239,0,0,0,0,0,7,15,14,23,2 

40,48,120,120,60,6,195,230,44,23,241, 

14,14,15,8,12,7,3,15,23,242,184,48,22 

4.32.96.192.128.224 
1460VDU23,243,0,0,0,7,15,8,10,B,23,2 

44,0,48,120,126,179,198,236,248,23,24 

5,15,12,13,7,3,3,3,15,23,246,240,96,9 

6.192.128.128.128.224 
1470VDU23,247,1,1,15,1,81,115,37,63, 

23,248,128,128,240,128,138,206,164,25 
2,23,249,2,3,0,54,0,94,64,27,23,250,6 
4,192,0,216,2,122,0,108 
1480VDU23,251,1,1,3,97,97,35,37,63,2 
3,252,128,128,192,134,134,196,164,252 
,23,253,3,3,0,27,64,94,0,54,23,254,19 
2,192,0,108,0,122,2,216 
1490VDU19,2,6;0;!9,l,2;0;:AZ(0) a 3:BZ 
(0) a 15:DZ(0) a l:AZCl) a 14:BZ(l) a 18:DZ(l 
i*-1:"RAMPABINB ROBOTS''iTZ-1024:UZ 
=796:QZ«22:PRINTTAB(2,5)KITAB(5,7)KIT 
AB (16,1DKITAB110,21 )KITAB( 12,29) Tl* 
*T* 

1500RETURN 

1510V0U23,239,16,16,24,8,12,12,6,6,2 

3,240,16,16,48,32,96,96,192,192,23,24 

1,3,1,3,6,14,14,6,2,23,242,128,0,128, 

192,224,224,192,128 

1520VDU23,243,0,0,64,96,48,56,28,14, 

23,244,0,0,4,12,24,56,112,224,23,245, 

3,1,3,14,12,24,24,8,23,246,128,0,128, 

224,96,48,48,32 

1530VDU23,247,0,0,0,252,252,104,120, 
108,23,248,0,0,0,0,0,0,60,230,23,249, 
127,117,255,255,255,0,248,248,23,250, 
242,251,255,254,248,3,127,30 
1540VDU23,251,252,252,104,120,108,12 
7,117,255,23,252,0,0,0,60,230,242,251 
,255,23,253,255,255,0,248,248,0,0,0,2 
3,254,254,248,3,127,30,0,0,0 
1550VDU19,2,3;0;19,l,l;0;:AZ(0) a 3:BZ 
!0) a 5:EZ(0) a liAZ(l) a 3iBZ(l)=17:DZ(l) a 
1:N* a * ESCAPED EQUIPHENT*:TZ a 1152:UZ a 1 
24:01=26:PRINTTAB(6,20)SI* *S*TAB(14, 
21)Sf* *S*TAB(7,20)K»TAB(15,21)K$TAB( 
0,5)K$TAB <8,7)K$TAB(18,24)1$ 

1560PRINTTAB(6,15)T*:RETURN 
1570VDU23,239,3,15,63,2S5,1,1,1,1,23 


,240,192,240,252,255,128,128,128,128, 

23,241,127,15,39,112,219,219,115,32,2 

3.242.254.240.228.14.219.219.206.4 

1580VDU23,243,0,0,0,3,15,63,2SS,1,23 
,244,0,0,0,192,240,252,255,128,23,245 
,127,15,39,112,219,219,115,32,23,246, 

254.240.228.14.219.219.206.4 

1590VDU23,247,0,0,0,0,0,0,0,25,23,24 
8,24,60,126,231,195,231,126,18B,23,24 
9,61,126,231,195,231,126,60,24,23,250 
,152,0,0,0,0,0,0,0 

1600VDU23,251,24,60,126,231,195,231, 



,195,231,126,60,24 

1610VDU19,2,2;0;19,l,4;0;:AZ(0) a 17>B 
Z(0) a 19iDZ(0) a -l:AZ(l) a 10!BZ(l) a ll:DZ 
(1)*1iN$ a 'PR0CESSIN6 PLANT*:TZ=0sUZ-7 
64:QZ*19:PRINTTAB(4,18)STRING#(7,Sf)T 
AB(14,18)SIS$S$TAB(5,16)STRIN6$(4,T$+ 
* ")TAB(5,7)TI 

1620PRINTTAB(3,12>T»* "T$TAB(10,29) 
T$TA8(3,18)KITAB(6,18)KITAB(17,IB)KIT 
AB(5,5)K$:RETURN 

1630VDU23,239,1,3,3,6,5,12,63,255,23 
,240,128,192,192,96,160,48,252,255,23 
,241,234,106,63,31,15,9,16,0,23,242,8 
7,86,252,248,224,144,8,0 

1640VDU23,243,1,3,3,7,7,12,63,255,23 
,244,128,192,192,224,224,48,252,255,2 
3,245,245,117,63,31,7,25,0,0,23,246,1 
75,174,252,248,224,152,0,0 

1650VDU23,247,0,0,0,4,34,2,0,24,23,2 
48,0,0,0,36,64,128,152,36,23,249,4,2, 
0,0,3,3,3,3,23,250,64,0,8,0,192,192,1 

92.192 

1660VDU23,25i,0,0,0,0,12,16,32,1,23, 
252,0,0,0,4,0,16,8,8,23,253,0,0,32,64 
,67,67,3,3,23,254,8,0,32,0,196,196,19 

6.192 

1670VDU19,2,3;0;19,l,5;0;:AZ(0) a 5:BZ 
(0)*9sDZ(0)*l;AZ(l)«13:BZ(l)*9:DZ(l)« 
-l:N$ a *THE BRAND FINALE*iTZ a 0:UZ a 764i 
6Z*23:PRINTTAB(12,6)KtTAB(11,12)K$TAB 
(3,19)K$TAB(17,19)KBTAB <4,18)T$TAB(13 
,22)T»TAB(15,29)T* 

1680PRINTTAB(14,19!SITAB(10,12)SITAB 
<2,29)Tt * "TITAB(3,14)CHR$235iRETURN 

1690HDDE7:FDRlZ a lT04iSOUNDl,1,40,12: 
NEXT:PROCdbl(* C0N6RATULATIDNS *,2):PRO 
Cdbl("YOU HAVE ESCAPED",5):PROCdbl("T 
HE LOST URANIUM MINE",8):PROCdbl("NIT 
H A FORTUNE*,11):PROCdbl('IN BOLD KEY 
S !",14) 

1700SCRZ a SCRZ+5000»LIVZ:PROCdb1(* BON 
US *+STR*(5000*LIVZ),18):FIZ«1:F0RI«1 
T017500:NEXT:RETURN 

171OREM 

1720REM Mil EXPLORER EDDIE III! 

1730REM 

1740REH III! BY B.NAKELIN III! 


Micro User Games Special 9 




If you’re devious, deft and deadly - gc 


od a newsflash from 

,c on the agent’s league 
be good to beat James 

17<Escape) then this 
which the error has 


If score i 
mission cc 
There are 
table. Yoi 
Bond. 

If an error other than 
wiU list the line m 

occurred. 

variables 

; s Bond. 

mum score to enter score 

level in play- 
Total goes, all hies. 
NumtooffteoPTj- 

Number of colours ' n *^7 

Number of tries rn each file 

of tries on scr 
Puts number ot rri 

Colours used in each 


PROCnewsflash 
PROCscoretable 

pROCreport 

RROR with my name 

PROCinsert 

(rnd%)- 

s name, waits for a 

HI$(5) 

ent. H o/ 0 (5) 

Piles level%(6) 

attempt 

e any colour. of% 

^changes number^ err* 

loured ★■Keeps tries to 

Cn% 

:port. 

.a nssiens clues. 


PROCEDURES 

Sets up MasterSpy ' 

Error trap. J 
ELSE REPORT El 
and address. 

Sets DIM arrays 
Colours (Col/o), f- 
(CodeS) and Random 
Asks for the player 
mission. 

Gives briefing to age 
Keeps score. 

Sets all codes, and ' 
E3 do not duplicate 

„d Sets screen up for 1 
Prints colour key a 

input to the right col 

10 per file- 
Gives a mission re 
Checks answer an 
Reveals correct cc 
press space bar te 
Mixes up answer: 
screen 7 K • 


PROCtitle 

PROCerr 


PROCinit 


pROCagent 


PROCreport 
PROCcheck 
PROCans 
PROCnewpage 
1 pROCclues 


Tries% 

Col% 
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on a mission with JOHN HOLLINGS... 


But you 
have to 
be good 
to beat 
James 
Bond! 


MASTERSPY is based on the well- 
known colour code game Mastermind. 
In this version you are a secret agent 
who, once accepted into the agency, is 
sent on a mission by mission control. 
You must uncover the secret colour 
codes of six files — but it is not easy. 

File 1 contains any three of seven 
colours. File 2 contains any four of 
seven colours. File 3 contains any five of 
seven colours. These files do not contain 
any duplication of colours. 

Once you have opened File 3 (five 
colours) you get on to the more difficult 
agency work. The next three files, 
although reverting to three, four and five 
colours of seven respectively, now may 
contain any number of colour dupli¬ 
cations. 

As you have to be good to be an agent 
you are only given 10 attempts at each 
file. If you don’t crack by the tenth try 
the code will be revealed to you and you 
lose the file you previously opened, so 
you go back by one file. On File 1 
should you fail to uncover the code it is 
resci'ambled and you can try- again. 

During your spying activities mission 
control keeps an undercover watch over 


f 5 REM (0 The Micro User 
! 10 M0DE7 

20 *FX200,i 

30 VDU23;8202;0;0;0;:CLSsPROCtitie 
40 CLEAR 
50 *FX4,1 

60 *KEY10 0.IMS0UND1,-15,75,5:S0UN 
02,-15,100,5:!M RUN !H 
70 REM ON ERROR PROCerr 
80 VDU23;8202;0;0;0; 

90 DIM HI$(5),HX(5),PX(5!;F0RA=1T0 
5:HI$(A)=‘Jaees Bond"+STRING$(13,V) 

:HX(A)=50:PX(A)=A:NEXT A 
100 PROCinit 

110 levelX=l:atteiptsX*0:ofX=0:errX 
=0:filelX=0:file2Z=0:file3X=0:file4X= 
0:fi1e5X=0s fi1 b 6X=0 
120 PROCti11e:PROCagent:PROCti11e: P 
RINTTAB(13,8);CHR4131;"Agent a ;Na*e$ 
130 PRINTTAB(2,10)CHR$131;" you hav 
e been accepted for a Mission" 

140 REPEATPRINTTAB(4,12)CHRI131;*0o 
you require a briefing? (Y/N)•;:Z*»B 
ET$ 

150 XX=INSTR("YyNn",Z*> 

160 UNTIL (XXOO) 

170 IF XX=1 OR n=2 THEN PROCinstru 
ctions ELSE 180 

180 IF levelX>6 THEN errX=2:ofX=6:C 
LSsPRQCscore 



190 IF levels OR levelX>3 THEN Cn 


X*levelM ELSE CnX=levelX+2 
200 MX=0:NX=0:X=2:Y=6:TriesX=0:VDU2 
3;8202;0;0;0; 

210 PROCsetcode 

220 PROCtitle:PROCplayingboard 

230 REPEAT 

240 TriesX*TriesX+l 

250 NX=NX+1:Y=Y+1 

260 IF NX=CnX THEN 360 

270 PROCplay 

280 atteeptsX-atteeptsX+1 
290 IF ofX<5 AND atteapts%>50 THEN 
300 ELSE 320 

300 errX=l:CLS:PRQCreport:S0UND1,1, 
136,50.-ENVEL0PE1,1,-7,7,0,10,10,0,126 
,0,0,-126,126,126:Z=INKEY(200) 

310 PROCtitle:PR0Creport:PROCplayin 
gboard:PR0Cans:PR0Cscore 
320 UNTIL NW0:IF MX»CnX THEN 360 
330 PROCans:PRINTTAB(0,23);SPC<391; 
:PRINTTAB(U,23);CHR$133;"Incorrect c 
ode *5VDU7sZ=INKEY(200) 

340 PROCneepage 

350 IF lBvelXsl THEN ofX=0sB0T0 180 
ELSE 1evelX-1evelX-l:ofX=levelXsSOTO 
180 

360 PROCansiPRINTTAB(0,23);SPC(39); 
:PRINTTAB(12,23);CHR$131;"Correct cod 
e ":S0UND1,2,4,50:ENVEL0PE2,2,6,0,0,2 
55,0,0,126,0,0,-126,126,126: Z=INKEY(2 
50) 


your progress. If M decides you are 
likely to be caught he instructs that your 
mission is terminated and you will 
receive a mission report to that effect. 

If on the other hand you complete 
your mission by opening all six files you 
will receive a report from your mission 
controller and may be duly promoted. 

To join the ranks of James Bond you 
have to be very good. You must open all 
six files in fewer than 50 attempts. If you 
can do this you are invited to enter your 
name on the agents’ league table. 

To help you in your mission your 
controller gives you clues for each 
colour entered - but these do not relate 
to the correct position of the colours in 
the code. To enter your selection you 
must depress the relevant number key 
followed by Return for each colour in 
the code. 

When the program runs you enter 
your name and if accepted for a mission 
you are asked: “Do you require a 
briefing?”. This is a must for a newly 
enrolled agent as it contains mission 
control’s clues, which must be 
memorised. 

Good luck in your mission. 


370 ofX=1evelX-1:1evelX=1evelX+1:B0 


TO 180 
380 END 


390 REM ****** init ****** 


400 DEFPROCinit 

410 DIM Mesl(23):F0RA=lT023s Mesl(A) 
=" ":NEXT 

420 DIM ColX(5),AnsX(5),Code*(5),rn 
dX(5),A(7) 

430 A=0:REPEAT:A=A+1 
440 CclXIA)=0:AnsX(A)=0:Code*(A)=". 
"iUNTIL A=5 


450 filecX=135:fi1elX=129 
460 ENDPR0C 

470 REM ****** setcode ****** 

480 DEFPROCsetcode 

490 IF IevelX< s 3 THEN 530 ELSE 500 

500 CX=0:REPEAT:CX=CX+1 

510 ColX(CX)=RND(7) 

520 UNTIL CX=CnX:ENDPR0C 
530 FOR Z=lT07iA(Z)*0:NEXT 
540 C=0:B s 0 s REPEAT:8*0+1:1F C*7 END 
PR0C 

550 X=RND(-TIHE) 

560 X=RND(7) 

570 IF A(X)-1 THEN Q=Q-1:S0T0 590 E 
LSE A(X) =1 
580 ColX(Q) S X 
590 UNTIL B=CnX 
600 ENDPR0C 
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610 REM ***** playingboard ***** 

620 DEFPROCplayingboard 
630 PRINTTABdl,3);CHR$(f 1 l«cX);CHR 
$157;CHR*('filelX);CHR$136;"F I L E " 
;levelX;" "CHRI156 
640 PRINTTAB(0,5);CHR$132;CHRS157}C 
HRf131;*SelBctian"jTAB(17)"Tries"}TAB 
(31>"Clues *CHRf156 

650 ENDPRQC 

660 REM ****** play ****** 

670 DEFPROCplay 
680 *FX15,0 

690 PRINTTAB(13,19)|CHR$134j"Colour 
key" 

700 AX*0;A=128(sX=10(REPEAT:AX=AX+1 
:A=A+l:x%=x%+2 

710 PRINTTAB(xX,20);CHR$(A)iCHR4255 

, M H 

’ 720 UNTIL AX=7 

730 N=05xlX=li:REPEATsN=N+l!XlX=xlX 

+2 

740 PRINTTAB(x1X,21);N 
750 UNTIL N=7 

760 PRINTTAB(0,23);SPC(39); 

770 A*0:X=18:REPEAT:A=A+1;X s X+2 
780 PRINTTAB(0,23);CHR*i31;“Enter ■ 
;CnX;* colour code" 

790 VDU21 

800 INPUTTAB(18,23),AnsX(A) 

810 VDU6 

820 IF AnsX(A)<1 OR AnsX(A)>7 THEN 
SQUND1,-15,75,5:BQT0 780 
830 VDU6;PRINTTAB(X,23)CHR$!AnsX(A) 
+128);"#*;" * 

840 UNTIL A=CnXsO s 3NKEY(50) 

850 A*5-CnX:B*0:REPEAT;A*A+2s B*B+1; 
PRINTTAB(A,Y);CHR$(Ans%(B)+128)|“#“|! 
UNTIL B=Cn% 

860 PROCcheck 

870 PRINTTAB!18,YS;CHR*S35;TriesXi 
880 PRQCdues 
890 ENDPRQC 

900 REM ****** check ****** 

910 DEFPROCcheck:NX=0 
920 FOR A=1 TO Cn7. 

930 IF AnsX(A) =ColX (A) THEN CodeKA 
)="/";NX=NX+1;NEXT A:SOTO 980 ELSE 
940 B=0;REPEAT:B S B+1 
950 IF AnsX(A)=ColX(B) THEN Code$(A 
!="X*;80T0 960 ELSE 
960 UNTILB=CnX 
970 NEXT A 
980 ENDPROC 

990 REM ****** ans ****** 

1000 DEFPROCans 

1010 PRINTTAB(5,3);SPC(20);sA*0:T=17 
-CnX 

1020 REPEATs A=A+1!T s T+2 
^ 1030 PRINTTAB(T,3)|CHR$(ColX(A)+128) 


+**y "(UNTIL A=CnX 
1040 ENDPROC 

1050 REM ****** clues ****** 

1060 DEFPROCclues 

1070 xxX=3i-Cn%iREPEATsxxX=xxX+2 

1080 X=RND(CnX) 

1090 IF rndX(X)=1 THEN xxX=xx%-2:60 
TO 1120 ELSE rndX<X)=1 
1100 PRINTTAB(xxX,Y);CHR$131;Code#(X 

) 

1110 C=C+1 
1120 UNTIL C=CnX 
1130 C=0 

1140 FQRA=lTDCnXirndX!A>=0:NEXT 
1150 X=RND(CnX) 

1160 F0RA=lT0CnXsrndX(X)=0:NEXT 
1170 FOR A=1 TO CnX:AnsX(A!=0:Code$( 
A)="."(NEXT 
1180 ENDPROC 

1190 REM ******* score ****** 

1200 VDU6 
1210 DEFPROCscore 
1220 *FX15,1 

1230 IF atte*ptsl<=30 AND ofX=6 PROC 
nexsflashiGOTQ 1570 
1240 IF errX=l THEN 1260 
1250 F0RhX a 10T0il:PRINTTAB(10,hX);CH 
R$130|CHR$136|CHR#141|“Mission Coaple 
ted"(NEXT 

1260 Z s INK£Y(300);CLS 
1270 F0RhX=0T01(PRINTTAB(10,hX);CHR4 
!31;CHR$141;"Mission Report"(NEXT 
1280 RESTORE 2570(A-0(REPEAT;A*A+1 
1290 READ Mesi(A) 

1300 UNTIL A=23 

1310 PRINTTAB(0,4);CHR$134;“Ref Agen 
t:";CHR$134;Naae$ 

1320 PRINTTAB (10,6! •, CHRI134; "Cl assi 
fied"|CHR*133;"Secret" 

1330 PRINTTAB(0,9);;CHRS134;Mes$<1); 
;IF errX=l THENPRINTTAB(20,9),-;CHR$13 
3;Mes$(2);;CHRfl34;Mes$(4) ELSE PRINT 
TAB(20,9);;CHR$130;Mes$(3);;CHR$134;M 
es$(4) 

1340 PRINTTABiO,10);;CHR$134;Mes*(5) 
;CHR$131;ofX;;CHR4134;Mes4(6) 

1350 PRINTTAB(0,11);;CHR$134;Mes$(7) 
:PRINTTAB(4,ll)j CHR$131;atteeptsX; ;CH 
R$134;Mesf(8) 

1360 PRINTTABiO,12);;CHR$134|;CHRf13 
4}Mes$(9) 

1370 IF errX a l THEN PRINTTAB(17,12); 
;CHRfl33;Mesl(10);;CHR*134;Me$$(12) E 
LSE PRINTTAB(17,12);;CHR$130;Mes$(11) 
;;CHR$134;;CHR$134;Mesf(12) 

1380 PRINTTABiO,13);CHR$134;Nesf(13) 
1390 IF o-fX<6 THEN 1400 ELSE GOTO 14 
40 

1400 d a RND<3) 

1410 IF d a l THEN DI=Mes$(14)(GOTO 14 
80 


1420 IF d=2 THEN D$ a Nes$(15!:60TQ 14 
80 

1430 IF d=3 THEN DI=Mes$(16)(GOTO 14 
80 

1440 IF ofX a 6 AND atte#ptsX>80 THEN 
D$=Hes$(17)s SOTO 1480 
1450 IF ofX=6 AND atteepts%<71 AND a 
tteaptsX>60 THEN Df=«es$(18!(SOTO 148 
0 

1460 IF ofX=6 AND atteaptsX<61 AND a 
tteeptsX>50 THEN D$=Mes$!19)(GOTO 148 
0 

1470 IF atteaptsX<50 THEN Df=Mes$(20 
)(GOTO 1480 

1480 PRINTTAB(3,13);;CHR$131;D$ 

1490 PRINTTABIO,14);;CHRtl34;Mes$(21 

) 

1500 PRINTTAB(6,17);CHR$131;I1es$(22) 
1510 PRINTTAB(0,19);;CHR*129;;CHR*13 
6;Mes$(23) 

1520 Z®INKEY(2000) 

1530 CLSiPROCtitle 

1540 F0RhX a 10T01l(PRINTTAB(8,hX)jCHR 
$131;CHR$136|CHR*141;"Message destroy 
ed* sNEXT 

1550 Z=INKEYS200) 

1560 PROCscoretable 
1570 REPEATsPRINTTAB(4,215;CHR$130;" 
There's another aission for you"'TAB( 
10);CHR#130;"Do you accept Y/N"j(Z$=G 
ET$ 

1580 ZX a INSTR("YyNn",Zt! 

1590 UNTIL (ZXOO) 

1600 IF ZX=1 OR ZX=2 THEN SOTO 110 E 
LSE CLS:PRINT"Basic"(END 
1610 END 

1620 REM ****** agent ***** 

1630 DEFPROCagent 
1640 PROCtitle 

1650 PRINTTABiO,4)jCHR$134;"Before y 
ou can becoae an Agent you sust";CHR$ 
134;"state your naae for our files. T 
hen you ";CHR*134;"«i11 be considered 
for a aission," 

1660 

1670 PRINTTAB!1,10)jCHRI131;"PIease 
state your name." 

1680 INPUTTAB(27,10)Na#e$:Naae$=LEFT 
$(Na*e$,18) 

1690 PRINTTAB(1,13);CHR$130;Na»e$;“ 
you are being considered" 

1700 Z=INKEY(400) 

1710 ENDPROC 

1720 REM ****** title ****** 

1730 DEFPROCtitie;CLS 
1740 FOR hX a 0 TO!:PRINTTAB(7,hX)CHRf 
129; CHR$157; CHR$135;CHR$141" Mast 
e r S p y "CHR*156(NEXT hX 
1750 ENDPROC 

1760 REM ****** report ****** 

1770 DEFPROCreport 
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1780 FORhX-I0T011sPRINTTAB«IO,hl)fCH 
R$131;CHR$136;CHR$141;"Mission Report 

"s NEXT 

1790 ENDPROC 

1800 REM hhh newsflash ****** 

1810 DEFPROCnewsflash 
1820 Naae$ s * john"satteapte%=23 
1830 CLS:F0R hX=10 T011sPRINTTAB<12, 
hX!CHR$l41;CHR$131;CHR$136;"NEWSFLASH 
•:NEXT hX 

1840 Z s INKEY(200):CLS 
1850 PROCtitle 

1860 PRINTTAB(13,3);CHR$131;CHR$136; 
"Newsflash" 

1870 PRINTTAB(0,55;CHR$134|"Refs Age 
nt“|CHR$131;Naeef 

1880 PRINTTAB(0,7);CHR#134|'Congrat 
ulation You opened all 6 files"';CHR$ 
134;"in only *;attemptsX" attempts. 

How ever ‘M' is"';CHR$134;"puzzled as 
it is alcost impossible to"';CHR$134 
;"do that. Therefore you are";CHR$133 
/Dismissed"'; 

1890 PRINTCHRtl34;"frost the service 
immediately." 

1900 Z=INKEY(200)SPRINT'';CHR$131;*H 
ow ever 'M' thinks you should have"'T 
AB(l2)CHR$131;"a second chance*:6QT01 
570 

1910 END 

1920 REM ****** score table ****** 
1930 DEFPRQCscoretable 
1940 PROCtitle:PRINTTAB(9,3);CHR$134 
;“Agent's League Table":PRINTTAB(9,4) 
;CHR$134;STRING$!20/-"! 

1950 FOR NX=1 TO 5 

1960 PRINTTAB(5,(NX*2)+6);CHR$134;PX 
(NX);CHRf131;HI$(NX);HX(NX):NEXT 
1970 C0L0UR3:IF attemptsX>HX(5) OR a 
ttemptsX<6 ENDPROC 
1980 NX=-1:REPEAT:NX=NX+1:UNTIL atte 
mptsX<HX(NX) OR NX=5:IF NX=5 OR errX= 
1 ENDPROC 

1990 HX(NX) s atte*ptsX:PRINTTAB(12,19 
);sVDU141,136:PRINTCHR$134/Hi-score 
!!!*;TA8(12,20);:VDU141,136:PRINTCHRI 
134;"Hi-score !!!" 

2000 PRINT'TAB(12);CHR$134;"Enter yo 
ur na*e-"''TAB(13); 

2010 VDU31,32:INPUTA$:IF LEN(AI)>18 
A$=LEFT$(A$,18):REPEAT:A$=A$+*.":UNTI 
L LEN(A$)=24 ELSE REPEAT:A$=A$+"sUN 
TIL LEN(A$)=23 

2020 HI$(NX)=A$:attemptsX s 100:CLS:60 
TO 1940 
2030 ENDPROC 

2040 REM ****** instructions ****** 
2050 DEFPROCinstructions 
2060 PROCtitle 

2070 PRINTTAB(0,4);CHR$130;"Briefing 
for Agent ";Name$; 


2080 PRINT"" Your mission is to g 
ain access to 6"'" files held in the 
Udanddy Embassy." 

2090 PRINT” Each file is in a sep 
arate safe with"” its own colour-co 
de lock and is graded by the dassif 
ication of the file it*” is protect 
ing." 

2100 PRINT';CHR$131;"File No."TABU2 
)"Colours in the code-lock" 

2110 PRINT'TAB(2);CHR$134;"1"TAB(10) 
"3 colours No duplication* 

2120 PRINTTAB(2);CHR$134;*2"TAB(10)" 

4 colours No duplication" 

2130 PRINTTAB(2);CHR$134;"3"TAB(10)" 

5 colours No duplication" 

2140 PRINTTAB(2);CHR$134;"4"TAB(10!" 

3 colours May be duplicated" 

2150 PRINTTAB(2);CHRfl34;"5*TAB(10)* 

4 colours May be duplicated" 

2160 PRINTTAB(2);CHR$134;"6"TAB(10)“ 

5 colours May be duplicated" 

2170 PROCnewpage 

2180 CLSsPROCtitle 

2190 PRINTTAB(0,4);CHR$130;"Briefing 

for Agent ";Name$; 

2200 PRINT'” The colours to choose 
from are as shown below together with 
their appropriate"” number-key." 

2210 AX=0:A=128:xX=10:REPEAT:AX=AX+1 
:A=A+l:xX*xX+2 

2220 PRINTTAB!xX,11);CHRI(A); CHR4255 

. M H , 

2230 UNTILAX*7 

2240 N=0:xX=ll:REPEAT:N=N+l:xX=xX+2 
2250 PRINTTABCxX,12);N:UNTIL N=7 
2260 PRINT'” You are given 10 tries 
at each code. If you do not open a f 
ile by the 10th try the code is reve 
aled, but you go BACK a file. If you 
are taking too many goes for the nu 
mber of open files or if it"” looks 
like you could"; 

2270 PRINT" be caught then the sissi 
on controller will terminate your mi 
ssion." 

2280 PROCnewpage 
2290 PROCtitle 

2300 PRINTTAB(0,4);CHR$130;"Briefing 
for Agent ";Name$; 

2310 PRINT'” There are clues to hel 
p you crack the codes. Memorize the 
following. "";CHR$131;" / = righ 

t colour right place"‘;CHR$131;" 

X * right colour wrong place’';CHR$13 
1;" . = colour not used." 

2320 PRINT” However these clues are 
mixed up e.g. clue 1 may not relat 
e to colour 1, etc. If you are good y 
ou can be promoted." 

2330 PRINT” That concludes the brie 


fing for this"” mission ";Name$;'TAB 
(15);"Sood luck" 

2340 PRINT'TAB(7);CHR$131;“Signed Mi 
ssion controller" 

2350 PROCnewpage 
2360 ENDPROC 
2370 END 

2380 REM ****** newpage ****** 

2390 DEFPROCnewpage 
2400 PRINTTAB(3,23);CHR$130;"Press t 
he (Space-bar) to continue" 

2410 Z$=GET$:IFZ$<>" " VDU7:G0T0 240 

0 

2420 ENDPROC 

2430 REM ****** err ****** 

2440 DEFPRQCerr:VDU6:CLS 
2450 50UN01,-15,75,5:50UND2,-15,100, 
5 

2460 IF ERR=17 THEN errX=l:PROCrepor 
t:PROCscore:END 
2470 *FX4,0 

2480 CLS:PRINT:REPORT:PRINT" at line 
No. ";ERL 

2490 PRINT';CHR$131;“Dear Player*"; 
CHR4131;“ I am sorry that an error ha 
5 appeared"';CHRf131;“in the program. 
If you cannot correct"’;CHR$131;"it 
please let me know. Tell me the"'; 
CHRI131;"error and the line number in 
which it"'; 

2500 PRINTCHR$131;"occurred." 1 ;CHRtl 
31;"Write to me at this address:-" 
2510 PRINT'TAB(12);CHRI134;"Mr J.Hol 
lings*'TAB(12);CHR$134/156 Templewoo 
d"'TAB!12);CHR$134;"Walter Ash"'TAB(l 
2);CHR*134;“High Wycoebe"'TAB(12);CHR 
$134;"Bucks." 

2520 PRINT:PR0Cinsert(‘LIST"+STRI(ER 
L)+CHR$13):STOP 
2530 END 

2540 DEFPROCinsert(1$):REPEAT:AX*138 
:XX=0:YX=ASC(LEFT!(1$,1)):CALL&FFFF4: 
I$ s RIBHT$(I$,LEN(I$)-l):UNTIL I$=*":E 
NDPROC 
2550 END 

2560 REM ****** DATA ******* 

2570 DATA"As your mission was","Term 
inated","Completed","and the"/number 
of files opened was","which took","y 
ou"," attempts. It is the decision of 

il 

2580 DATA"'M' that you are","Demoted 
"/Promoted",‘to the rank","of“/Clea 
ner (at Hoover's)"/Supervisor (in a 
Siberian Salt sine)“,“Builder (for Le 
go)"/Assistant Spy","Spy",“Super Spy 
“/Master Spy" 

2590 DATA'This is effective iamediat 
ely."/Signed Mission Controller","Th 
is message self-destructs in 30 Sec" 
2600 END 
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Draw up a chair and join in this poker 


simulation game by ALAIM GORNALL 


Deal your way to 
a right royal flush 


DRAW is a computer simulation of 
draw poker, from which all other forms 
of the game are derived. 

First each player chips in his or her 
ante or stake into the kitty or pot. Then 
each is dealt five cards face down. 

In real life the player to the dealer’s 
left either opens the betting or folds, so 
losing his ante. The next player in turn 
may “see” the amount previously put 
into the pot, or raise it, or fold. And so 
on until we get back to the dealer. 

If the pot has been raised the betting 
goes around a second time. Next comes 
the draw. 

Each player can change any or all of 
the five cards in his hand. Once 
everyone has been dealt the final round 
of betting follows. 

The same process as before applies 
and the last person left in collects the 
pot. 

Poker hands are ranked like this, 
with the best hand first: 

Royal flush (ace to ten in the same 
suit), straight flush (five cards in 
sequence of the same suit), four of a kind 
(say, four kings), full house (three cards 
of one kind and two of another), Flush 
(all of the same suite), Straight 
(consecutive cards, different suits), three 
of a kind (say three fives), two pairs, one 
pair. 

The simulation, however, involves 
only two players with the computer 
acting as dealer. So if one player drops 
out the hand will be over. 

A few tips for the player: 

The only way to play poker, other 
than by cheating - which incidentally 
the simulation is quite adept at when 
called upon - is to make the most out of 
your winning hands, and lose as little as 
possible on your losing ones. Unfor¬ 
tunately, this is hard do to. 

One way is to glean as much as 
possible from your opponent’s style of 
play and act accordingly. 

Of course he may play erratically, 
which would not be much help. 

You will be pleased to hear that the 
simulation does play to a fixed system, 


the nature of which you’ll have to work 
out for yourself. 

There are two pretty good indicators 
as to the strength of an opponent’s hand. 
One is how much money he is prepared 
to put on it - although he may bluff - 
and the other is how many cards he 
takes at the draw. 

If he takes three cards, the best hand 
he could have had before the draw 
would be a pair, and his odds of 
improving this are about 5-2 against. So 
if you have two pairs, chances are you’ll 
beat him in the showdown. 

In the game the ante is 1, the 
maximum open 10 and the maximum 
raise 10. 



PROCvalue(ZS) 


PR OCdeal(HAND$,Y%) 


PROCval 

PROCinfo 

I PROCbet \ 

PROCbetl d 

PROCpre-bet L 

1 pROCpre_betl J 

I pROCbluff 

i pROCwin 

I pROCdraw 

1 pROCcheat 


procedures order of the accep ted k 

Values any P oker ^ proC edures, such as: I 

ranks. This uscsotherP pR0Cflush . PROC- ■ 

PROCstraight, PROC P.^ hands of 0 ne pair), ■ 

premamp, PR°Oa ( (han ds of two pairs), ■ 
PROCfiush2, PRO j PROCd (Ml house), ■ 
PROCc ( three ° f * it TaOCe (four of a kind) ■ 

place. , a on its face. 

Draws the value o and how muc h you are ■ 

Displays the value i P , I 

in credit. . , Which one is use 

ssas»5;‘--=s— 

° f ha " ds ,hat the 
Works out the pe bl ffed 0 n. 
computer's opponent'“ been se en after the draw | 
Called when someone has 

has taken P lace , wish to change, and how 
Controls which ca J t0 change, 
many the computer wish at the beginning of 

Called when the with one of those in one of 

the program matches up of the program. It 

the data statements at * d ^ is not a s 

also sets its betting scheme a ^ it usmg 
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i Packs - ,. Variables ' ~~—— 

STAK£% Onn Jns 3 Pack of cards 
POTo/ 0 ^Ponenfs credit. 

>lufl% ™unt of money current! ■ 

o% Percentage of hands that [if in tile poL 

tsz 

** 1 ^ eswhc,teri,rt,,ci ““-^ 

mt% r ether the draw has taken”?” ^ 3S decided to do I 

dis n Cation - Shuffledthe y are placed h I 

12$ Opponent’s hand here ’°ne m each I 

i Computer’s hand. I 

determines who hac .l ■ 

1 the computer’s turn VnV? f ° Jd and n °t Jose the' ■ 

Jtisi?»* "■*<'£.i ,n - “ I 

man „„ ofthe fe> ore ,>, TOs NEXTI^ I 

*«»>. or are of l„ lle impo ***»««,*„„, I 


10 REM 
20 REM 
30 REM 
80 ON 


y Alan 8 
cro User 
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From Page 15 

A* (9) 

460 Hand2l=A4(2)+A4(4)+A*!6) +A*( 8 ) + 
All 10) 

470 CountXMl 

480 STAKE*=STAKEX-IsPOTX-POTX+2 

490 aboX*FALSE 

500 

510 COLOUR 130 
520 CLS 

530 PRINT:C0L0UR0 
540 PRINT'Your hand :“ 

550 

560 PRQCdeal(Handif,700) 

570 

580 PRQCvalue(Hand24) 

590 

600 PROCinfo 

610 IF foldX THEN 3380 ELSE 3470 

620 PROCinfo 

630 

640 noX*noX+l 
650 

660 IF foldX THEN PROCbet ELSE PROC 
bstl 
670 

680 IF (FOLDX*1 AND cheatX=FALSE! 0 
R (FOLDEDX * 1 AND foldX=0) THEN 800 
690 IF foldX*! AND F0LDEDX*1 THEN 8 

20 

700 

710 VDU 26 
720 PROCdrae 
730 

740 dra*X*l 
750 

760 PR0Cvalue(Hand2l) 

770 

780 IF foldX THEN PROCbet ELSE PROC 
betl 
790 

800 PROCbluff 
810 

820 foldX * foldX *1 
830 UNTIL foldXM 
840 foldX*0 
850 UNTIL FALSE 
860 END 
870 

880 DEFPRQCvalue(Zf) 

890 

900 flushX-0 
910 YJ*Zt 
920 value*0 
930 

940 PROCpreaanip 
950 

960 PROCflush 
970 

980 NX=FALSE 
990 FOR JX*1 TO 4 


1000 FOR KX*JX+1 TO 5 
1010 IF HlD$(Z*,2»JX-l,l)*HID»<Z*,2t 
KX-1,1) THEN NX*NX+1:AX(JX,KX)*1 
1020 NEXT 
1030 NEXT 

1040 IF NX*1 THEN PROCasENDPROC 
1050 IF NX*2 THEN PROCbiENDPROC 
1060 IF NX*3 THEN PR0Cc:ENDPR0C 
1070 IF NX*4 THEN PROCdsENDPROC 
1080 IF NX *6 THEN PROC«:ENDPROC 
1090 

1100 PROCflush 
1110 

1120 REH flush 
1130 

1140 FOR JX« 1 TO 4 
1150 FOR KX= JX+1 TO 5 
1160 IF H1D*<Z$,2»JX ( 1) * HID$CZ$,2* 
KX,1)THEN NX=NX+1:AX(JX,KX)*1 
1170 NEXT 
1180 NEXT 

1190 IF NX*10 THEN flushX*l 
1200 

1210 PROCstraight 

1220 IF value > 0 THEN ENDPROC 

1230 

1240 REH bust 
1250 

1260 ZZ*=" 

1270 FOR JX*1 TO 9 STEP 2 
1280 IF HIDI(ZI,JX,1)*"=*THEN value 
* 13s ZZ**ZZ$+"K"+MIDf(Z$,JX+l,1) 

1290 IF HID$(Z»,JX,1)*">‘0R HIDliZ*, 
JX,1)*'1*THEN value * 14:ZZ$*ZZ*+'A-+ 
HID4IZI,JX+1,1) 

1300 NEXT 

1310 IF value<13 AND cheatX*0 THEN F 
OLDX * 1 
1320 

1330 ENDPROC 
1340 

1350 DEF PROCstraight 
1360 

1370 FOR JX=1 TO 5:Z*(JX)*"*:Z$(JX)* 
HIDt(Z*,2*JX-l,2):NEXT 
1380 FOR KX»1 TO 4 
1390 leastX*KX 

1400 FOR testX » KX+1 TO 5 
1410 IF ZS(testX) < ZtileastX) 
THEN leastX * testX 
1420 NEXT 

1430 

1440 PROCseap 
1450 

1460 NEXT 
1470 Z$ s "" 

1480 FOR JX=1 TO 5 
1490 Z*»Z*+Z*(JX) 

1500 NEXT 
1510 ZZf*Z* 

1520 BBX*0 

1530 AAX*ASC(HID*(Z*,1,1)> 


1540 FOR JX*5 TO 2 STEP -1 
1550 BBX=BBX+(ASC(HID!(Z$,2*JX-i,1)) 
-AAX) 

1560 NEXT 

1570 IF BBX*10 AND flushX*0 THEN val 
ue * (AAX-44H20000 
1580 IF BBX-10 AND flushX*! THEN val 
ue = (((AAX-44 > *10)+30000200) 

1590 IF BBX>10 AND flushX*l THEN val 
ue * (ASC(Zl(5))-48)*200000+(ASC(Zf(4 
))-48)*10000+(ASC(Z$(3))-48)*500+(ASC 
(Zf(2))-48)*25+(ASC(Z$(1))-48) 

1600 IF BBXMO AND flushX*l AND aceX 
*1 AND runX*FALSE THEN Z$*LEFT*(IT$,p 
ositionX-l)+"l"+RIGHT$(IT$,10-positio 
nX):runX=l:PROCstraight:runX*FALSE 
1610 IF BBXMO AND flushX=FALSE AND 
aceX*l AND runX*FALSE THEN Z**LEFT$(I 
T$,positionX-l)+'l“+RI6HT$(IT$,10-pos 
itionX):runX*l:PROCstraight:runX=FALS 
E 

1620 ENDPROC 
1630 

1640 DEF PROCpresanip 
1650 FOR JX*1 TO 9 STEP 2 
1660 2»*Z$ 

1670 IF HIDI(Z$,JX,1)* > T II THEN Z4*LEF 
T4(:»,JX-l)+":*+RIGHT$(zF t 10-JX) 

1680 IF MIDf(z*,JX,l)=*J*THEN Z*«LEF 
T$(z$,JX-l)+“;*+RIGHT$ <z$,10-JX) 

1690 IF HID*(Z*,JX,1)=-Q-THEN Zt*LEF 
T$(z$,JX-1)+"< *+RIGHT$(zi,10-JX) 

1700 IF HIDf(zl,JX,1)=*K‘THEN Z$=LEF 
TKzl^X-n+'s'+RIGHTMzf ,10-JX) 

1710 IF HID$(z4,JX,l)*' l A*THEN Z$*LEF 
T$(z$,JX-1)+">"+RIGHT$(zf,10-JX):IT$* 
ZI:aceX*lipositionX*JX 
1720 NEXT 
1730 y$*Zf 
1740 ENDPROC 
1750 

1760 DEF PROCflush 
1770 

1780 FOR JX*1 TO 4 
1790 FOR KX*1 TO 5 
1800 AX(JX,KX)*FALSE 
1810 NEXT 
1820 NEXT 
1830 ENDPROC 
1840 

1850 DEF PROCflushl 
1860 FOR JX*0 TO 14 
1870 typeX(JX) * FALSE 
1880 NEXT 
1890 ENDPROC 
1900 

1910 DEF PR0Cflush2 

1920 FOR JX*1 TO 5:ZX(JX)-FALSE:NEXT 

1930 ENDPROC 

1940 

1950 DEF PROCit 
1960 FOR JX*1 TO 5 
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1970 KX a (ASC(HIDI(ZI,2*JX-l,l>))-48 
1980 typeX(KX) * typeX(KX) + 1 
1990 NEXT 
2000 ENDPRQC 
2010 

2020 DEF PRQCiwip 
2030 teapl « ZKKX) 

2040 ZKKX) = ZllleastX) 

2050 ZKleastX) ■ teapl 

2060 ENDPRQC 

2070 

2080 DEF PRQCa 
2090 

2100 PROOFlush2 
2110 

2120 FOR JX a l TO 4 
2130 FOR KX=i TO 5 

2140 IF AX(JX,KX) a l THEN CX a JXsDX a KX 

2150 NEXT 
2160 NEXT 

2170 ZZI a HIDI(YI,2*CX-l,2)+HIDI(YI,2 
♦DX-1,2) 

2180 ZX(CX)*i!ZX(DX)=lsYY$="* 

2190 FOR JX= 1 TQ 5 
2200 IF ZX(JX) s FALSE THEN YYI-YYI+HI 
DKyl,2*JX-l,l) 

2210 NEXT 

2220 FOR JX a l TO 3 
2230 YYI(JX) a HIDKYYI,JX,l) 

2240 NEXT 

2250 IF YYK1XYYK2) THEN Tl a YYI(2) 
:YY$(2) a YY|(l):YYIIl) a TI 
2260 IF YYN2XYYH3) THEN Tl a YYI(3! 
:YYI!3) a YYt(2)jYYI(2) a TI 
2270 IF YYK1XYYK2) THEN TI«YYI(2) 
:YYI(2) a YYKl)iYYIfl! a TI 
2280 value a (ASC(HIDKzl,2*CX-i,l>) 
-48)* 100+(ASC(YY$(1>)-48) + (ASC(YY$ < 2) 
)-48)*.01+iASC(YYI(3))-48)*.000i 
2290 ENDPRQC 
2300 

2310 DEF PRQCb 
2320 

2330 PROCf1ush2 
2340 

2350 ZZI a "*:ABCX a FALSE 
2360 FOR JX a l TO 4 
2370 FOR KX a l TO 5 

2380 IF AX(JX,KX! a i THEN ZZt a ZZI+HID 
KYI,2*JX-l,2!+HIDKYI,2*KX-l,2)sZX(J 
X) a lsZX(KX) a l:ABCX a ABCX+l:localXfABCX 
) a ASC(HIDI(ZI,2*JX-l))-48 
2390 NEXT 
2400 NEXT 

2410 FOR JX a t TO 5 

2420 IF ZX(JX)-FALSE THEN localX a A 
SC(HIDI(ZI,2*JX-1,1)1-48 
2430 NEXT 

2440 IF localXil)>localX(2) THEN val 
ue a localX(l)*500+localX(2)»20+local 
X ELSE value a localX(2)*500+localX(l 


)*20+localX 
2450 ENDPROC 
2460 

2470 DEF PROCc 
2480 ZZI a '* 

2490 FOR JX=1 TO 5 
2500 ZXiJXi-FALSE 
2510 NEXT 

2520 FOR JX a l TO 4 
2530 FOR KX a l TO 5 

2540 IF AX(JX,KX) a l THEN ZX(JX! a l:ZX 
(KX) a i 
2550 NEXT 
2560 NEXT 

2570 FOR JX a l TO 5 

2580 IF ZXIJXXl THEN ZZI a ZZI+MIDI(Y 
l,2*JX-l,2)sCBAX a JX 
2590 NEXT 

2600 value a IASCiHIDI<Z4,2*CBAX-l,i 
))-48)*5000 
2610 ENDPROC 
2620 

2630 DEF PROCd 
2640 

2650 PROCflushl 
2660 

2670 PROCit 
2680 

2690 FOR JX a l TO 14 
2700 IF typeX(JX) a 3 THEN value a J 
X*2E6 
2710 NEXT 
2720 ZZI-YI 
2730 

2740 ENDPROC 
2750 

2760 DEF PROCe 
2770 

2780 PROCflushl 
2790 

2800 PROCit 
2810 

2820 FOR JX a l TO 14 
2830 IF typeX(JX) a 4 THEN value a ( 
JX*10)+3E7 
2840 NEXT 
2850 ZZI'YI 
2860 

2870 ENDPROC 
2880 

2890 DEF PROCdeal(HANOI,YX) 

2900 blipX * 1 

2910 FOR XX»100 TO 900 STEP 200 
2920 Kl a HIDI(HANDI,blipX,2i 
2930 PROCcard(XX,YX) 

2940 PROCval 

2950 blipX > blipX * 2 

2960 NEXT XX 

2970 VDU 4 

2980 ENDPROC 

2990 

3000 DEF PROCcard(XX,YX) 


3010 SCOL 0,3 
3020 MOVE XX,YX 
3030 HOVE XX+160,YX 
3040 PLOT 85,XX,YX+200 
3050 PLOT 85,XZ+160,YX+200 
3060 6C0L 0,0 
3070 ENDPROC 
3080 

3090 DEF PROCval 
3100 Xl a NIDI(KI,l,i) 

3110 VDU 5 

3120 IF XI**T" THEN HOVE XX+24,YX+11 
2:PRINTM0"iB0T03140 
3130 HOVE XX+8,Y%+180sPRINT XliHOVE 
XX+104,YX+40sPRINT XI 
3140 XI B H1DI!KI,2,1) 

3150 IF Xl a *C“ THEN NX a l 

3160 IF XI-'D" THEN NX«2 

3170 IF Xl a “H* THEN NX a 3 

3180 IF XI-'S" THEN NX a 4 

3190 HOVE XX+88,YI+180!PRINT jSTIINX 
)SHOVE X%+8,VX+40:PRINT ;STI(NX) 

3200 ENDPROC 
3210 

3220 DEF PRQCinfo 

3230 VDU28,7,30,18,29 

3240 COLOUR 131 

3250 CLS 

3260 COLOUR 0 

3270 PRINT*pot *;PQTX 

3280 PRINT'credit 

3290 IF STAKEX < 0 THEN COLOUR 1 

3300 PRINT;STAKEX? 

3310 COLOUR 0 
3320 COLOUR 130 
3330 VDU 26 
3340 ENDPROC 
3350 

3360 REH I fold 
3370 

3380 *FX15 

3390 IF value < 500 AND cheatX-FALSE 
THEN PRINT TAB<0,25);"I foId'sOl a INK 
EYI(500):BOTO 820 

3400 PRINT TAB<0,25);"I a* not going 
to fold" 

3410 OI»INKEYI(500) 

3420 PRINT TAB(0,25);SPC(30) 

3430 SOTO 630 
3440 

3450 REH you fold 
3460 

3470 PRINT TAB(0,25)j*Do you want to 
fold" 

3480 REPEATsOI-GETIsUNTIL Ol a *Y" OR 
OI="N*OR Ol a "y*OR Ol a "n" 

3490 IF Ol a "Y*OR OI='y* THEN 820 
3500 PRINT TAB(0,25);SPC(30) 

3510 SOTO 630 
3520 

. - i) 
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SATAN'S CHALLENGE 

or (Nevii Rides Out) A Black Magic Adventure 



Dare you take up the challenge laid down by the most evil 
and sinister of all beings . . . the devil himself. 

If you do you will find yourself alone and at the mercy of the 
twisted fancies and whims of a cold and calculating mind. 

Occult forces are threatening the lives of those near and dear to 
you. Their only salvation rests in your hands but in accepting the 
challenge your own existence is put in severe peril. 

In taking up the challenge you have to find the TALISMAN and 
locate a pentagram which then has to be prepared for the final rite. In 
the mean time dark forces will be opposing you making a difficult 
task almost impossible. 

DAIRYFILE FOR 

Keep on that economic line between over and underfeeding I 

Save time recording milk yield and calculating feed amounts! 

Quickly decide feeding policy with the 'Monthly Calving Group' 
Performance Graph! 

Print out a recording sheet with cows in numerical order. Print out 
graphs or tables of individual cows or Monthly Groups showing 
serving and pregnancy details, illness record, Calving Index, weekly 
and running total Margin over Concentrate. See at a glance cows 
due for serving, pregnancy diagnosis and drying off. Keep track of 


Do not allow yourself to the lulled into a sense of security for it will 
be short lived. 

Many have gone before only to swell the ranks of the damned. 
This is the latest adventure from the stables of Microtest and has 
been written with the acclaimed features of other adventures in 
mind eg save facility, quick response, simple but extensive 
commands, a mixture of logical and fiendish problems to solve. 

Be warned this is an easy adventure to get into but devilishly 
difficult to end. 

CASSETTE £ 7.95 inc VAT 

DISC 40 or 80 tk £ 9.45 inc VAT (add 50p p&p) 

DAIRY FARMERS 

weekly total feed cost and milk sale price. 

All this and more with DAIRYFILE. 

Predict cow or Monthly Group total lactation yield. Compare with 
Standard Lactation Curves. All old data preserved - compare 
Monthly Groups overthe years. Which is the most profitable month? 
Find out with DAIRYFILE - for up to 200 lactating cows. 
Available on dual 40 tk disc (For dual 40 tk drives only) 

Dual or Single 80 tk drives £69 inc VAT (add 50p p&p) 

Please state on ordering which disc format and printer model. 


MICROTEST FONT ROM 


This exciting new ROM from Microtest will enable you to get all sorts 
of new characters and fonts from your BBC Computer. Once you 
have produced your masterpiece on the screen, all you have to do is 
use the inbuilt screen-dump utility to produce a hard copy onto 
paper. 

Typing '*HELP FONTS' gives a list of available fonts and the 
blocks of characters which they replace. 

Available fonts are: 

•Accents Accents and miscellaneous. 

•Block Small capitals. 

•Data Like the bottoms of cheques. 

•Greek It's all Greek to me too! 

•Joined Standard capitals with joined up lower case. 

•Maths A mix of until now unobtainable Mathematical 

symbols. 

•Miscellaneous A few oddities which often are very necessary. 
•Thick Thick text (for MODEs 0&3) to enhance 80 

column mode. 


•Thin Thin text (for MODEs 2&5) which makes modes 2 

& 5 much more readable or perhaps 
"READABLE ", 

•Vertical For labelling graphs. 

•MODE 8 Ten column multicolour, memory-miserly 

mode. 

•S DUMP A dump facility which will produce a screen 

dump of any MODE from 0 to 8 (including a 
text only dump in MODE 7) on an Epson, Star, 
CTI CP80 or MT80, 

The ROM uses absolutely NO user memory and can be used with 
word processors etc. as well as normaK§ASIC programs. The 
DUMP utility will produce positive or negative graphics and will 
also rotate the picture produced through 90° as well as being 
able to position the picture anywhere laterally across the sheet 
of paper. 

£ 17.50 inc VAT (add 50p p&p) 


Microtest Starstick ROM & Joystick Package 

Now available the Starstick ROM and Joystick. This comes in three forms: 



Enables you to use our 
joysticks on most programs 
even those that do not offer 
joystick capability. 


(A) The Starstick ROM and Quickshot I Joystick 

Price 17.95 + VAT = 19.84 

(B) The Starstick ROM and Quickshot II Joystick 

Price 19.25 + VAT = 22.14 

(C) The Starstick ROM and patch lead, choose 
your own Spectrum/Atari style joystick 

Price 15.25 + VAT = 17.54 
Post and Packing £1.00 inc. VAT per item 

This enables you to plug the Rapid action self centring joysticks until now 
only available for the Spectrum/Atari/CBM machines into the user port of 
the BBC. Model A users please note NO ANALOGUE INTERFACE 
REQUIRED. 

Disc Users Note - pressing BREAK, SHIFT-BREAK or CONTROL BREAK 
does not modify or destroy the STARSTICK software so Disc Users 
please feel free to Boot! 

The software patch provided in the ROM is interrupt driven and adds the 
following commands to your computer. 

t it STICK turn on the STARSTICK ROM 

★ NSTICK turn off the STARSTICK ROM 
★ SETSTICK set up joystick to users spec 
★ SAVE ' NAME 140 160 saves your user-key protocols 
★ ADVAL emulate standard analogue joysticks 
★ PAUSE define key to Freeze game 
★ NPAUSE turn off ability to freeze game 
★ "NAME predefined key protocols set up for software 
houses programs 

★ HELP KEYS displays currently selected key protocols 
★ REPEAT enables auto-repeat fire 
★ NREPEAT disables auto-repeat fire 


- available from - 

dealerENQ uiRiEs MICROTEST LTD 

export orders <| 3 Normandy Way, Bodmin, Cornwall PL31 1 EX 

WELCOME _ _ 

Telephone: 0208 3812 

OR ANY GOOD DEALER 

Large picture shows BBC Computer System and a Quickshot II Joystick. Small inset just a few of the 
joysticks that will work with the patch lead. Screenshot by kind permission of SUPERIOR SOFTWARE 

All MICROTEST ROMs are fully TUBE® compatible. (TUBE ® is a reg. trademark of Acorn Computers). 
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3530 DEF PROCbet 
3540 

3550 IF cheatX THEN PROCcheat ELSE 1 
F drawl THEN PRQCpre.betl ELSE PROCpr 
e.bet 
3560 

3570 VDU 28,1,27,18,22 
3580 COLOUR 128:CLS:C0L0UR3 
3590 

3600 IF FOLD* * 1 AND cheatX»FALSE T 
HEN PRINT "I fold*:STAKEX a STAKEX+PQTX 
s POTX»FALSEsPROCinfos 0*»IHKEY$(500)s E 
NDPROC 

3610 PRINT"! open with “j*BETX=betX+ 
1NT(RND(bet!))SPRINT;BETX 
3620 PDTX=POTZ+BET%!PROCinfo 
3630 PR0C2nd_bit*ENDPR0C 
3640 

3650 DEF PR0C2nd bit 
3660 VDU 28,1,27,18,24 
3670 COLOURS;COLOUR128 
3680 PRINT"1. See* 

3690 PRINT“2. Raise' 

3700 PRINT'3. Fold* 

3710 REPEAT:optX-SETsUNTIL optX>48 A 
ND optX<52 
3720 optX=optX-48 

3730 IF optX s l AND draw* * 1 THEN ST 
AKEX=STAKEX-BETXsP0TX*P0TX+BETXsCOLQU 
R130:CLS:VDU26:PROCinfo;PROCwin:ENDPR 
OC 

3740 IF optl'l THEN STAKEX=STAKEX-BE 
TXs PQTX=POTX+BETXs PROCinfos ENDPROC 
3750 IF opt! = 3 THEN FOLDED! « IsPO 
TX*0sCOLOUR 130:COLOUR 0:VDU26:CLS:EN 
DPROC 

3760 REPEAT 

3770 CLSsINPUT'How euch',raiselX 
3780 UNTILraiselX>0 AND raiselX<*10 
3790 BETlX*BETX+raiselXsSTAKEX=STAKE 
X-BET1X;P0TX=P0TX+BETIX 
3800 IF BETIX <■ (raiseX*betX> OR bi 
uff! > 25 OR cheatX=l OR P0TX>20 PRIN 
T'l see you'sPOTX=POTX + BETIXsBLOPX* 
1 

3810 IF BLOPX*i AND draw! * FALSE TH 
EN PROCinfos0*=INKEY$(500)sBLQPX=FALS 
EsENDPROC 

3820 IF BLOPX=l AND draw! - 1 THEN P 
R0Cin<o:0l*INKEYt(500)sPR0CHinsBLQPX* 
FALSEsENDPROC 

3830 STAKEX*STAKEX+PQTXs POTX*FALSE:F 
0LDX*1 

3840 PRINT”! fold" 

3850 PROCinfo 
3B60 Q$ a INKEY$(500) 

3870 ENDPROC 
3880 

3890 DEF PRDCpre bet 
3900 


3910 IF value < 13 AND draw! * FALSE 
THEN FOLD! ■ IsENDPROC 
3920 IF value < 300 AND draw! * 1 TH 
EN FOLD! * IsENDPROC 
3930 IF value < 500 THEN betX * Is r 
aiseX* 1sENDPROC 

3940 IF value < 1000 THEN betX a Is 
raiseX B 2sENDPROC 

3950 IF value < 1500 THEN betX* 2s r 
aiseX* 2sENDPROC 

3960 IF value < 4000 THEN betX * 3s 
raise! 8 3sENDPROC 

3970 IF value < 8000 THEN betX * 3s 
raise! 8 4sENDPROC 

3980 IF value < 40000 THEN betX * 4s 
raise! 8 5sENDPROC 

3990 IF value < 70000 THEN betX 8 4s 

raise!® 6sENDPR0C 

4000 betX 8 5:raiseX= 7sENDPR0C 

4010 

4020 DEF PROCbluff 
4030 

4040 PROCvalue(Handll) 

4050 

4060 IF value < 500 THEN BLUFFX=BLUF 
FX+1 

4070 bluff! * BLUFF! * 100 DIV nuX 

4080 ENDPROC 

4090 

4100 DEF PROCwin 
4110 

4120 VDU 28,1,27,18,22 
4130 C0L0UR130:COLOUROs CLS 
4140 VDU26 
4150 

4160 PROCvalue(Handll) 

4170 valuel a value 
4180 

4190 PROCvalue(Hand2$) 

4200 value2*value 
4210 

4220 PROCdeal(Hand2$,400) 

4230 

4240 IF valuel>value2 THEN PRINT TAB 
(0,21);"you win ';Opponent!:STAKEX a ST 
AKEX+POTX:POTX*OiPROCinf os 01*INKEY!(5 
00)sENDPROC 

4250 IF valuel<value2 THEN PRINT TAB 
(0,21)$"you lose *;Opponent*:P0TX=0sP 
R0Cinfo:0! a INKEY!(500)sENDPROC 
4260 IF valuel«value2 THEN PRINT TAB 
(0,21);"both hands are of equal value 
';Opponent*sSTAKEX*STAKEX+(PQTX/2)s P 
0TX a 0sPRQCinfo:0! a INKEY!(500)sENDPROC 
4270 

4280 DEF PROCdraw 
4290 VDU 26 

4300 VDU 28,1,27,18,22s COLOUR128:COL 
0UR3 

4310 CLS 

4320 len! a LEN(ZZ!) 

4330 IF lenX * 10 THEN PRINT TAB(0,2 


2);"I take no cards' ELSE IF (10-lenX 
)/2 s l THEN PRINT TAB(0,22);'l take 1 
card' ELSE PRINT TAB(0,22);"I take '; 

(10-lenX)/2j" cards* 

4340 IF len!*10 THEN 4410 
4350 a!*(10-lenX)/2+CountX 
4360 REPEAT 

4370 ZZ! a ZZ!+A!(CountX) 

4380 CountX*CountX+l 
4390 UNTIL Count! * a! 

4400 Hand2!«ZZ! 

4410 PRINT'Do you want to change 
any cards* 

4420 REPEAT?0«=BET*sUNTIL 0! a 'Y" OR 
Q! a *N*0R 0! 8 "y*QR 0! a 'n' 

4430 IF 0l*'N"0R 0! a *n' THEN C0L0UR1 
30:COLOUROs CLS;VDU26:ENDPROC 
4440 

4450 PR0Cflush2 
4460 

4470 FOR JX 8 1 TO 5 
4480 PRINT'Change card ';JX;' ?*; 
4490 REPEATsOf=BET$sUNTIL 0! a 'Y" OR 
0l*"N*0R 0»**n*0R 0!="y* 

4500 PRINTO! 

4510 IF Q*«'Y"OR Ol-'y* THEN ZX!JX!* 
I?takenX=takenX+l 
4520 NEXT 
4530 lenX s 0:0* s " 

4540 FOR JX=1 TO 5 

4550 IF ZX(JX)*0 THEN 0*®0!+NlD»(Han 
dlf,2*JX~1,2) 

4560 IF ZX(JX)»1 THEN len!»len!+l 
4570 NEXT 

4580 IF LEN(QI>>9 THEN 4640 
4590 a!*lenX+CountX 
4600 REPEAT 
4610 OI=OI+A*(Count!) 

4620 Count!*CountX+l 
4630 UNTIL aX^Count! 

4640 Handl! s O$ 

4650 PROCdeal(Handl*,700) 

4660 C0L0UR130:COLOUROs CLS?VDU26:END 
PROC 
4670 

4680 DEF PROCcheat 
4690 

4700 F0LDX=0 
4710 

4720 PROCvalue(Handll) 

4730 valuel*value 
4740 

4750 PR0Cvalue(Hand2l) 

4760 value2*value 
4770 

4780 IF value2>valuel THEN betX«5sra 
iseX*7sENDPROC 
4790 

4800 PROCalter 
4810 PR0Cvalue(Hand2!) 
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The best software store in the country 
(now boasting over 2,500 good titles in stock) 
with accessories, joysticks and books. We have 
somehow made room for hardware stocks. 
Home computers, disc drives, printers, monitors, 

and now a very special offer 



R.G.B. MONITOR 


Ideal for BBC/Electron and many others. 


14" coiour monitors 

% Resolution equivalent to 
480 x 400 pixels 

% Full 

12 month guarantee 



These monitors using 
Trinitron tubes have 
been converted to RGB 


Our 

unbeatable 

price 



Or mail order £159.50 including VAT, p&p & BBC leads 
Postal and telephone orders welcomed. 

All major credit cards accepted. 

(Offer subject to availability) Easy Road Access 

Soft Shop Ltd. Free Parkin 9 and 

55 St Peter’s Court Open Mon. Sat. 

Chalfont St Peter 9.00-5.30 

Bucks. SL9 9QQ Tel: (0753) 889010 Sun. 9.30-12.30 


Tel: (0753) 889010 
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4820 IF value<10000 THEN PROCalterl 

4830 ENDPROC 

4840 

48S0 DEF PRQCalter 
4860 

4870 abo*«abo*+l 

4880 IF abo**2 THEN ENDPROC 

4890 SI=HID$(Hand2l,l,2> 

4900 naughty*=16 
4910 REPEAT 
4920 F$ a A*(naughty*) 

4930 IF NIDUS*,l,l) a NID$<FI,1,1) TH 
EN S$=S*+F$ 

4940 naughty*=naughty*+l 
4950 UNTIL naughty**53 
4960 abboX=LEN(SI) 

4970 abbo*=Hand2* 

4980 Hand2* a S*+HID*(abbo*,3,10-abboX 

) 

4990 ZZ*=Hand2* 

5000 bet*=5:raise*=7 
5010 

5020 ENDPROC 

5030 ( 

5040 DEF PROCbet1 

5050 

5060 IF cheat* THEN PROCcheat ELSE I 
F draaX THEN PROCpre.betl ELSE PROCpr 
e bet 
5070 

5080 VDU28,1,27,18,22 
5090 C0LQUR128:C0L0UR3:CLS 
5100 PRINT'Do you want to:“ 

5110 PRINT"!. Open" 

5120 PRINT"2. Fold" 

5130 REPEAT:opt* s 6ET:UNTIL opt*>48 A 
ND opt*<51 

5140 IF opt*=50 THEN F0LDED*=1:COLOU 
R130:COLOURO:VDU26:CLS:P0TX*0:ENDPROC 

5150 REPEAT 

5160 PRINTTAB(0,4);SPC(14) 

5170 INPUT TAB(0,4)"How such",BET* 
5180 UNTIL BETX>0 AND BETX<«10 
5190 *FX 15 

5200 STAKEX=STAKEX-BETX:POTX*POTX+BE 
T* 

5210 IF ((bet**raiseX)>=BETX OR bluf 
f*>25 OR PQTX>20 OR cheatX=l) AND FOL 
DX=0 THEN CLS:PRINT*I see you":POTX=P 
OTX+BETXsPROCinfo:BL0PX=1 ELSE FOLDX= 

1 

5220 IF F0LDX*1 AND cheat*=FALSE THE 
N PRINT"! fold*:STAKEX=STAKEX+POTX:PQ 
TX*0sPR0Cinfo:VDU26s0$*INKEY$(500)iEN 
DPROC 

5230 g=(raise**bet*-BETX)/2 
5240 IF g>10 THEN g=10 
5250 IF g>i THEN g»INT(g)iC0L0UR128: 
C0L0UR3:PRINTTAB(1,23)"and raise you 
'" igi:POTXspOTX+g!BET*=g:PROCinfo:PROC 







2 nd„bit 

5260 IF draw* AND g>=l AND F0LDEDX=0 
PROCwin:VDU26 

5270 IF F0LDEDX=0 Of=INKEVi(500) 

5280 ENDPROC 

5290 

5300 DEF PROCpre.betl 
5310 

5320 IF value<13 AND dra«X=0 THEN FO 
LDX=1:ENDPROC 

5330 IF value<300 AND dra*X=l THEN F 
OLD*=1:ENDPROC 

5340 IF value<500 THEN betX«t:raise* 
=1:ENDPROC 

5350 IF value< 1000 THEN bet**lsraise 
Mi ENDPROC 

5360 IF value<1200 THEN betX*2iraise 
I s 2 JENDPROC 

5370 IF value<1500 AND taken*>2 THEN 
bet* s 4:raise* B 2sENDPRQC ELSE IF valu 
@<1500 AND taken*<3 THEN betX*2:raise 
X-2:ENDPROC 

5380 IF value<4000 AND taken*>2 THEN 
betX x 5:raise* a 3:ENDPROC ELSE IF valu 
e<4000 AND taken*<3 THEN betX-3;raise 
*=3:ENDPROC 

5390 IF value<8000 AND taken*>2 THEN 
bet* a 5iraise* a 5sENDPROC ELSE IF valu 
e<8000 AND taken* <3 THEN bet* a 2:rais 
e*«3:ENDPROC 

5400 IF value<40000 AND taken*>2 THE 
N bet*=5:raise*=5:ENDPROC ELSE IF val 
ue<40000 AND taken* <3 THEN bet*=4:ra 
ise*=4:ENDPROC 







5410 IF value<70000 AND taken*>2 THE 
N bet* a 5:raise* s 5:ENDPROC ELSE IF val 
ue<70000 AND taken* <3THENbet*»4sra 
iseXM: ENDPROC 

5420 bet*=5sraise*=7:ENDPROC 
5430 

5440 DEF PROCalterl 
5450 

5460 stiff* a stiff*+l 
5470 IF itiffX-2 THEN ENDPROC 
5480 naughty* a !6 
5490 F* a NID*(Hand2*,l,2) 

5500 REPEAT 

5510 naughty* a naughty*+l 
5520 0*-At(naughty*) 

5530 IF NID$(F*,2,l) a HID$(0f,2,1) TH 
EN FI=FI+0$ 

5540 UNTIL naughty*=52 OR LEN F«»10 
5550 IF LEN FK10 THEN Hand2*=F+RI6 
HTI(F$,10-LEN(F$ ):ENDPROC 

5560 Hand2* a F* 

5570 ZZI s Hand2f 
5580 ENDPROC 
5590 

5600 REN these DATA stateeents shoul 
d be filled with naees of 

people you want the coaputer 

to cheat against. 

5610 

5620 DATA «*♦ 

5630 

5640 REN Escape Key has been Pressed 
5650 HQDE7 
5660 END 
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Catch crashing crockery in this 
fast mover by IAN McALPINE 







T, YOU’RE QUITE 
A HANDFUL! ^ 


YOUR rich aunt and uncle have asked 
you to babysit with their two-year-old 
son, Tobermory, who is quite a 
mischievous chap for his age. 

No sooner have your aunt and uncle 
left than he jumps up on to the china 
cabinet and runs along the top of it, 
jumping up and down as he goes. 

The expensive china starts to fall and 
you run frantically left and right trying 
to catch the falling pieces. 

It’s easy to start with, but soon the 
crockery falls thick and fast. 

Because of the Law of Frustrating 
Games the china will occasionally turn 
into a red anti-matter blob, heralded by 
a ping. 

Never try to catch an anti-matter 
blob or your hands will explode and you 
will lose a life - as you do when you 
drop a piece of china. 

You have three lives to begin with, 
but get an extra one on completion of 
Level 3. The number of lives left is 
printed in yellow two-thirds up the left 
hand side of the screen. This number 
turns red when you only have one life 
left. 

Once you have lost all of your lives, 
your aunt and uncle return home, see 
their beautiful china smashed, and uncle 
promptly shoots you! 





rcyp 

\\ 


The program’s features include 
ability to turn the sound on/off, use of 
keyboard or joystick for movement, 
pause game control, SAVE and LOAD 
high score from cassette, “gruesome 
consequences” and full use of the Acorn 
Speech System if fitted. 


The Speech System is used for 
prompting input, speaking level number, 
the “thud” in the gruesome consequen¬ 
ces and for announcing the score. 

Enter the program exactly as listed, 
as it runs very tight on memory. 

When entering the program disc 
users would be advised to SAVE it each 
time before they run it because of the 
relocator at the start of the program. 

Cassette users can leave out lines 60, 
1330 and 1340. All users should initially 
enter line 70 as: 

70 PROCi 

Once the program is running 
correctly the rest of line 70 can be 
entered. 
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pROCEI>U rES 

characters 

Initialises char a 
and envelopes- 

fire 

button- and 

dar, fables. 

S "°”arM to start 6»» e ' 
Checks whether » s ” 6 
keys otjoyst*- tob? 
PA® o£ of china. 

„ rf Drops a o 

.OCwt(num) Delay- 

t Afll 


LOCgh 

EtOChp 

ROCa 

>ROCU 

pROCre 

PROCw 

pROCb 

pROCf 


lOCu 

ROCff 

>ROCc 

PROCP 

PROCs 

pROCkm 


Delay- .core, hi& h 
china left to h ro P' 
P oSso*““»«“"' 

?5» P »“ r'enh of 

high score a 

game ' erreen display¬ 
's which keys 

Sets to. jovstick 

movement. d 

Pauses game or 

You^cattght thepieceof 

CdtoPPeO the P*« 
of china n ; ece of china 

ETaSe bottom of screen. 
ft °m afhSh score. 

«rythfhk to 

default- cb ine 

S“^Us' b 

»" J '“" licet' piece 
S'c&es where on 

the cabinet. speak. 

dOCspk 

R 0 Ccd (num)P^ graphics- 

, RO Cdo (num ' R °ld d s°character. 
? Nrc 


ROCrh 

•ROCr 


10 REH ...China Drop... 

20 REH by Ian HcAlpina. 

30 REH Theae, graphics and Spwch 
40 REH consultant, Kaith HcAlpina. 
50 REH (0 Tht Hicro liaar 
60 IFPA6EOIE00THEN1330 
70 PROCi:0NERR0RH0DE7iCLEAR:VDU23; 
10,32,0;0;0;:PROChp:PROCa: S0T090 
B0 H0DE7:VDU23;10,32,0;0;0;;PR0Cgh 
:CLS:PROChpiPROCa 

90 PROCi1sPROCai:H0DE2:PROCre:S0UN 
03,5,50,-1:REPEAT!PROCa:PROCb!PROCfiI 
Fd=8ANDcrOQsk s sk+l: 11 <=11+1: IFik»5cr= 
cr+1:PROCat(50):SOUND1,4,200,5:PRQCu: 
PROCat(150)iPROCff:PR0Cat(150) 

100 IFik>*5sk*5 

110 IFd s 8ANDcr< >OHOOE2:PROCre: SOUND 
3,5,50,-1 

120 UNTILcr=0:*FX15,0 
130 CLSiPROCc:H0DE7;VDU23;10,32,0;0 
;0;:PROCpiEND 

140 DEFPROCi:RESTORE1360:F0RcX=223T 
0254:V0U23,c X:FORd Z S 0T07:READd:VDUd:N 
EXT,:ENVEL0PE1,4,-4,-l,-l,20,20,20,l, 
0,0,0,1,1:ENVEL0PE2,133,8,4,8,3,1,1,1 
24,0,0,-10,126,0:ENVEL0PE3,13&,-1,-1, 
-1,30,2,2,127,0,-127,-10,40,40 
150 ENVEL0PE4,1,0,0,0,0,0,0,126,-1, 
0,-3,126,126:ENVELOPES,1,40,-4,40,6,1 
2,6,50,0,0,-50,75,5:HX-100:*FX4,1 
160 ENDPR0C 

170 DEFPROCi1:0IH0$(9),CX9:tFXll,l 
180 *FX12,100 

190 sc*0:cr®3:sk®2:11-1:pp=3:REST0R 
E1410: F0RDZ*l<0 A40T0&0A64: RE ADD: ?DZ *D: 
NEXTiENDPROC 

200 DEFPROCi2iF0Rch=lT08:0*(ch)=CHR 
t (244+RND(4))!CX?ch=RND <7)s NEXT:0$(9) 
s CHR$244:CX?9*l:xh®8:yh a 30:xb a 8:yb®2: 
aa s 2:d=0:y s FALSE:rep-FALSE:ENDPROC 
210 DEFPROCa:PROCffsPROCat(150)s VDU 
31,0,23,129,157,135,136:PRINT'PRESS < 
RETURN) OR 'FIRE' BUTTON RESTORE 
1420:PR0C*pk:TIHE*0:REPEAT:k s INKEY1-7 

4) :j=ADVAL(0):UNTILk®TRUE ORj=10RTIHE 
>*1500:IFk s TRUE a$«"K , ELSEal a, J* 

220 1FTIHE >*1SOOPROCa 
230 ENDPR0C 

240 DEFPROCs:VDU19,7,0;0; 19,1,0;0; 1 
9,3,0;0;:6C0L0,7:H0VE0,736:DRAN1279,7 
36:H0VE0,670:DRAW 1279,670:H0VE0,30:DR 
AN1279,30:H0VE400,992:DRAN700,992:H0V 
E400,100 7:DRAN700,1007:H0VE400,1019:D 
RAW700,1019 

250 BC0L44,1:FQRyc=740T0764STEP4:PL 
0T77,640,yc:NEXT:6C0L43,3:F0Ryc=0T026 
STEP4sPL0T77,640,yc:NEXT:PRINTTAB(6,l 

5) SPC(7):VDU20:F0Rpr*lT08:C0L0URCX?pr 
:VDU31,pr*2,10:PRINT04(pr):NEXT:*FX9, 
5 

•-► 
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260 #FX10,5 

270 COLOUR14:PRINTTAB(0,0);"SCORE:' 
:CQL0UR12:PRINTTAB(il,0);"HI6H:"tCOLO 
UR4:PRINTTAB(6,31);"LEVEL *;:C0L0UR2 
:PRINTTAB(6,0);fc s CQL0UR5:PRINTTAB(16 
,0);HZsCOLOURpp:PRINTTAB(0,9); cr:COLO 
UR4:PRINTTAB(13,31);11; 

280 DEFPRQCa:IFat a 'K"PROCka ELSEPRO 
Cja 

290 ENDPROC 

300 DEFPROCka:IFINKEY(-26)AND(xh)O) 
xh=xh-l 

310 IFINKEY(-122)AMD(xh<15)xh*xh+l 
320 ?i0A43 a xh:CALUA05:IFrep a TRUE r 
ep=FALSE:ENDPROC 
330 IFINKEY(-1)rep=TRUEsPROCka 
340 ENDPROC 

350 DEFPROCja:ov=32750:nv s ADVAL(1): 
IFnv<(ov-30000!AND(xh<15)xh a xh+lELSEI 
Fnv>(ov+30000)AND<xh>0)xh*xh-l 
360 ?iOA43 a x h:CALL&A05:IFrep=TRUE r 
ep a FALSE:ENDPROC 

370 fi=ADVAL(0)AND3:IFfi a lrep a TRUE: 
PROCja 
380 ENDPROC 

390 DEFPROCspk:REPEAT:READs:SOUND-1 
, s,0,0:UNTILs a 1: ENDPROC 
400 DEFPROCb:PROCpaslFyb*2yb a lELSEy 
b=2 

410 ONaa 60T0430,420 
420 IF(xb<15)xb*xb+l:60T0450 
430 IF(xb >0)xb=xb-l 
440 IFxb a 0aa*2 
450 IFxb a 15aa a l 

460 ?40A4D*xb:?40A4E*yb:CALL6A20:EN 
DPROC 

470 DEFPROCat(da):TIHE a O:REPEATUNTI 
LTIHE>desENDPROC 

480 DEFPROCf:f_ch«RND(5):IFf_ch<3EN 
DPROC 

490 o»RND(8):PROCa:PROCb: IFOt <o) a "" 
THEN490 

500 oft a CHRt237+CHRtB+STRIN6t(sk,CH 
Rt10)+Dt(o):Of(o) a "":x o a o*2:b=FALSE:I 
Fsk a 3bo a 27ELSEbo=28 
510 F0Rdp a 10T0bo STEPsk:IFb*FALSE:I 
FRND(50K3ANDdp< a 23oft a CHRt237+CHRf8+ 
STRIN6t(sk,CHRfl0)+0t(9):0t(o) a "":o a 9 
:b a TRUE:S0UND2,-15,200,1 
520 PROCa:PROCb:CQLOURCI?o:PRINTTAB 
(xo, dp); off: PROCb :PR0Ca:NE!(T:IFo<>9AN 
D FNrc(xo) a 1300Ra< >9AND FNrc(xo)-129P 
ROCct ELSEIFo<>9AND FNrc(xo)<>1300Ro< 
>9AND FNrc(xo)<>129PR0Cdp 
530 IFo»9AND FNrc(xo)»1300Ro a 9AND F 
Nr c(x o)*129y a TRUE:CX?o a 7 s PROCdp:CX?o* 
1 ELSEIFo a 9AND FNrc(xo)<>1300Ro a 9AND 
FNrc(xo)< >129PR0Ce:PR0Cct 
540 IFx b<16C0L0UR7:VDU31,x b+1,yb,23 
8,239,240:PR0Cat(60):VDU8,8,8,237,237 


,237 

550 d a d+l:IFd<>8SOUND3,5,50,-t:ENDP 
ROC 

560 DEFPROCu:C0L0UR2s PRINTTAB (6 y 0); 
sc;COL0UR5:PRINTTA8(16,O);HX;:IFcr< a i 
pp a lELSEpp*3 

570 COLOURpptPRINTTAB(0,9);cr:ENDPR 
OC 

580 DEFFNrc(x):LQCALAX,cX:VDU31,x,y 
h: AX=135!=(USR (4FFF4) AND&FFFF) DI Vie 100 
590 DEFPROCct:*FX15,0 
600 S0UND2,2,100,10:lFsk s 3PRINTTAB( 
xo,28);" " 

610 IFo<>9sc»ac+Bk*iOELSEsc“*c+sk*5 

620 IFsc>HXHZ=bc 

630 PROCu:ENDPROC 

640 OEFPROCdp:*FX15,0 

650 PROCa:cr=cr-l:PROCu:ya a O:VDU19, 

0,7;0;:PROCat(5):SOUND1,1,100,1:SOUND 
0,-15,7,30:VDU19,0,0;0;:VDU29,(xo*64) 
+32;32; 

660 FORex a 1T0350STEPlOsHOVEO,0:6C0L 
0,CX?o:PL0T65,0,yes NOVEO,Os PL0T65,-ex 
,32:NOVEO,0:PL0T65,-ex,ye:NOVEO,0:PLO 
T65,ex,32:NOVEO,0:PL0T65,ex,ye:NOVEO, 
0:6C0L0,0 

670 PL0T65,-ex,ye:H0VE0,0:PL0T65,ex 
,ye:HOVEO,0:PL0T65,0,ye:NOVEO,0:PL0T6 
5,-ex,32:NOVEO,0:PL0T65,ex,32:ye a ye+5 
:PL0T65,ex,ye:NOVEO,0:NETT:ENDPROC 
680 DEFPRQCps *FX12,0 
690 *FX15,0 

700 IFsc a Hl:VDU31,8,2,129,141:PRINT 
"Congratulations!!";TAB(8,3);:VDU130, 
141:PRINT'Congratulations!!":SOUND-1, 
279,0,0:SOUND-1,202,0,0:PR0Cat(150) 

710 PRINTTAB(8,6);:VDU131 y 141:PRINT 
"Your Score "CHRtl29;sc;TAB(8,7);:VDU 
131,141:PRINT"Your Score "CHRfl29;sc; 
TAB(8,10);:VDU134,141:PRINT"High Scor 
e "CHR$136;HX;TAB(8,11);:VDU134,141:P 
RINT-High Score "CHRti36;HX 
720 REST0RE1440:PROCspk:sc$=STR*#cs 
IFLENsctO4:REPEATsct a *0*+sct:UNTILLE 
Nsct a 4:IFscf a '0000"S0UND-l,139,0,0:60 
T0760 

730 SOUND-1,VAL(LEFT!(scf,1))+48,0, 
0:SOUND-1,141,0,0:SOUND-1,VAL(NIDI(sc 
t,2,l))+48,0,0:SQUND-l,140,0,OsSOUND- 
1,165,0,0:IFHID*(set,3,l) a *l"ANDHIDf( 
sc *,4,1) a "0"SOUND-1,264,0,0:6QT0760 
740 IFHIDt(sct,3,l) a "l"S0UND-l,VAL( 
NIDI(scf,4,1)1+32,0,0:S0UND-1,135,0,0 
:60T0760ELSEIFHIDt(scf,3,l) a "0"SOUND- 
1, VALtHIDf (set,4,1) )+48,0,0ELSE SOUND 
-l,VAL(HIDt<sct,3,l))+32,0,0:SQUND-l, 
137,0,0 

750 IFHIDt(set,4,1)<>"0"SDUND-1 t VAL 
(HIDf(scf,4,1))+48,0,0:*FX21,0 
760 CLEAR:PROCat(500):VDU31,2,17,14 
l,134:PRINT"Do you aant to play again 
?";TAB(2,18);:VDU141,132:PRINT"Do yo 


u aant to play again ?*:REST0REi450:P 
R0Cspk:A»BET:*FX21,8 
770 IFA»780R A*1lOPROCrhi*FX21 ,8 
780 IFA=780R A a 110PRlNTTAB(0,22)SPC 
8 " 6 ood bye one and all!"SPCl1sRESTQRE 
1460:PROCspk:PROCat(400):PROCr:END 
790 IFA*890R A a l21:PR0Ca:80T090ELSE 
760 

800 ENDPROC 

810 DEFPROCre:*FX21,0 

820 VDU23;10,32,0;0;0;:*FX9,25 

630 »FX10,25 

840 *FX21,B 

850 IF11<1OSOUND-1,229,0,0:SOUND-1, 
11+48,0,0 

860 COLOUR12s PRINTTAB16,15);-READY * 

!":PROCat(150):PROCi2:PROCs:*F X15,0 
870 ENDPROC 
880 DEFPRQCe:*FX21,0 
890 IFy a TRUE PRINTTAB(xo,28);" ":y a 
FALSE:ENDPROC 

900 PRINTTAB(xo,yh);" *iTAB(xo,28); 

" ":ENDPROC 
910 DEFPR0Cpa:#FX15,l 
920 *FX12,0 

930 IFINKEY(-81)REPEATUNTILINKEY(-6 
5) 

940 IFINKEY(-17)s*FX2iO,l 
950 IFINKEY(-82):*FX210,0 
960 *FX12,100 
970 ENDPROC 

980 DEFPROCf f:RESTORE1350: *F X 21,0 
990 REPEAT:R£ADV,PP,D:IFV a lV a -15 
1000 SOUND1,V,PP,D:S0UND2,V,PP-48,D: 
S0UND3,V,PP+48,Ds UNTILD a 99s *FX15,1 
1010 ENDPROC 

1020 DEFPROChp:LOCALi;FORi a 0T07:VDU3 
l,0,i,154,RND(7)+144:NEXT:PR0Ccd(0):F 
0Ri s 7T014:VDU31,0,i,136,153,RND(7)+14 
4:NEXT:PRQCcd(7):FQRi a 14T020:VDU31,0, 
i,154,RND(7)+144:NEXT:PROCcd(14):ENDP 
ROC 

1030 DEFPR0Ccd(ee):*FX21,8 
1040 PRINTTA8(4,ee)"x/tj5‘SPC12CHRt2 
55*/aO"TAB(4,ee+l)CHRt255* /j5 _0"SP 
C8CHRt255‘ j5"TAB(4,ee+2)CHRt255" j5 
p blOp pO *CHRt255" "CHRt34"> _0_p0 
pO"TABl4,ee+3)CHRt255" j"; 

1050 PRINTCHRt255CHRt163"> j5"CHRf255 
CHRtl63"}(ss"CHRt255" "CHRt255* _?j7* 
CHRf163CHRf255CHRt163CHRf255"j 7"CHRf1 
63CHRf255TAB(4,ee+4)CHRf255" _z5 "CHR 
t255*j5"CHRt255" "CHRt255"j7"CHRtl63C 
HRf255‘ "CHRt255" j5j5 "CHRt255" "CHR 
t255"j)!?" 

1060 PRINTTAB(4,ee+5)"+l'k5 "CHRt255 
":u*CHRt255" ■;CHRt255":}!"CHRf255" * 
CHRt255*l>!j5 oi?j5"TAB(31,ee+6)*j5*i 
ENDPROC 

1070 DEFPROCc:VDU29,640;0;:VDU24,-64 
0;500;639;1023;:8C0L33,134:CL8: VDU24, 
-640;0;639;1023;:6C0L0,6:HGVE-640,5O0 
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:DRAH640,500: F0RSZ=-640TQ640STEP12: NO 
VE6X,500:DRAN8*6Z,0:NEXT:VDU26:HOVE10 
00,500;6CQL0,0:DRAN1030,550:DRAH1060, 
500:HOVE 1030,550 

1080 DRAM1030,675s MOVE1000,675:MOVE 1 
060,675:8C0L0,3:PL0T85,1000,745:PLOTS 
5,1060,745:H0VE800,564:VDU19,10,0; 0;: 
6C0L0,10:VDU5:VDU242,10,B,243:PR0Cdel 
5)iPRQCat(100)sPROCdo(0);H0VE165,564: 
6C0L0,7:VDU224,10,8,227:PROCwt(50) 
1090 PRQCdo(5):H0VE300,564:6C0L0,0:V 
DU228,10,8,241:H0VE370,600:6C0L0,0:VD 
U251,252:SOUND16,4,3+RND(3),2:PROCat( 
50):H0VE370,600:6C0L33,6:VDU251,252:F 
ORxs=330T0B00STEP30:HOVEx s,560:6CQL0, 
0:VDU255,8:PROCwt(5):SC0L33,6:VDU255: 
NEXT:PRINT*>* 

1100 PROCwt(10):HQVE840,560 s 8C0L33,6 
:PRINT * > 1 :HOVE 760,600:8C0L0,0: VDU253, 
254:VDU19,10,9;0;:SOUND1,3,200,20:PRO 
Cut(50):HQVE760,600:8COL33,6:VDU253,2 
54:HDVE800,564:SCQLO,0:VDU242,10,8,24 
3:6C0L33,6:H0VE800,564:VDU242,10,8,24 
3:6C0L0,1 

1110 SOUND-1,7,0,0:H0VE800,532:VDU24 
9,250:PROCwt(200):EHDPROC 
1120 DEFPROCdo(U):6C0L0,UiHOVE100,50 
0:HOVE2S0,500:PLQT85,250,700:HOVE100, 
700:PL0T85,100,500:IFU a 56C0L0,7:PLOT6 
9,220,610 
1130 ENDPROC 

1140 DEFPROCgh:RESTORE!430:PRGCspk 
1150 PRINTTAB<l,4);CHRI134"Do you na 
nt to load the High score ?“:A*INSTR( 
, YNyn",8ETf):IFA=2QR AMENDPROC 
1160 IFA=10R A-3VDU28,0,10,39,6sH-OP 
EHIN'HIGH*:INPUT#H,HXiCL0SEIH:VDU26:E 


NDPROC ELSE1ISO 

1170 DEFPRQCrh:RESTOREl470:PRQCspk 
1180 L0CALA:PRINTTABtl,22);CHR$134"D 
o you Kant to record the High score ? 
*:A«INSTR("YNyn",6ET*l:IFA*20R AMEND 

PROC 

1190 IFAMOR A*3VDU28,0,24,19,23:H s 0 
PEN0UT"HI6H":PRINT#H,HZ:CLQSEiH:CLS:V 
DU26:ENDPROC ELSE1180 
1200 DEFPROCasiPXMAOS 
1210 [OPTO:LOAIOtLDXtO:LDAti0A40,X 
1220 .write JSR&FFEE:!NX:LOA60A40,X: 
CHPiiFFsBNEwrite 
1230 RTS:] 

1240 PXMA20 

1250 [OPTO*.LDAiO:LDXIOsLDAI0A4A, X 
1260 .write2 JSR&FFEEsINX:LDA&0A4A,X 
:CHPIIiFF:BNE»rite2 
1270 RTS:]:ENDPROC 
1280 DEFPRDCr s *FX4,0 
1290 *FXi2,0 
1300 *FX15,0 
1310 *FX210,0 
1320 ENDPROC 

1330 PRINT'"Please wait...*TAPE 
1340 FORIZ-OTQ TOP-PASE 8TEP4:IX!&E0 
0=17 !PABEs NEXT: ?ll3®?til3-(PA8E-ltE00)D 
IV256: PA6E~tiE00: RUN 
1350 DATA1,53,4,0,0,.25,1,53,4,1,73, 
4,0,0,.25,1,73,4,1,81,4,0,0,.25,1,81, 
4, 1,89,9,1,73,5,0,0,.25,1,53,3.5,0,0, 
.25,1,53,3.5,1,73,4,0,0,.25,1,73,4,1, 
89,2.5,1,73,2.5,1,89,2.5,1,73,15,0,0, 
99 

1360 DATAO,0,0,24,24,0,0,0,28,28,28, 
8,60,90,153,153,0,0,0,64,127,63,3,3,0 
,0,0,1,127,126,96,96,153,153.24,36,36 


,66,36,102,112,120,112,39,124,112,112 

,112,1,0,3,7,13,31,13,6,0,128,192,224 

,176,248,176,96,7,31,63,111,239,207,2 

23.126.224.248.252 

1370 DATA246,247,243,251,254,31,63,6 
3,63,31,31,15,14,248,252,252,252,248, 

248.240.112.30.60.120.124.62.30.126.2 
52,120,60,30,62,124,120,126,63,0,0,0, 
0,0,0,0,0,0,0,0,251,170,171,170,0,0,0 
,0,190,170,170,170,0,0,0,0,228,164,22 
8,160,4,112,112,80 

1380 DATA72,72,72,72,108,7,15,7,34,6 
3,7,7,7,7,7,9,9,17,17,17,51,28,60,254 
,255,126,63,125,56,255,126,126,60,24, 

24.24.126.248.250.253.249.249.250.252 
,248,250,253,249,114,124,112,32,248,0 
,24,60,24,126,24,60,126,0,0,0,0,0,129 
,135,255,0,0,0,0,2 

1390 DATA231,247,255,238,170,170,206 
,170,170,234,0,238,170,168,171,170,17 
0,174,0,174,170,168,171,170,170,238,0 
,165,165,165,229,165,160,165,0 
1400 DATA241,246,252,1 
1410 DATA17,7,3i,8,30,32,225,226,32, 
255,17,7,31,8,2,237,237,237,237,8,8,8 
,8,10,237,229,230,237,8,8,8,8,10,237, 

231.232.237.8.8.8.8.10.17.1.237.233.2 
34,237,8,8,8,8,10,17,7,237,235,236,23 
7,8,8,8,8,10,237,237,237,237,255 

1420 DATA241,246,252,237,267,174,1 
1430 DATA184,275,281,267,257,200,176 
,1 

1440 DATA290,257,209,1 
1450 DATA162,289,237,226,1 
1460 DATA265,275,147,254,270,247,1 
1470 DATA184,275,281,267,257,235,143 
,176,1 
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THE NUMBER ONE 
ADVENTURE SERIES 


‘Iriffid Software ‘Bgseareh 


‘Iriffid Software ^search 



BBC-B 

versions 

£ 6-95 

each 


yt' 






BBC-B 


THE SECRET RIVER 


RUNEMAGIC SERIES 
ADVENTURE TWO 
THE WIZARD'S CITADEL 


1. Load Character Generator (on side one of Adventure One). 

2. Dice Character; buy weapon and armour and choose spells. 

3. Load Character into Adventure One. 

4. If you complete Adventure, then your character will 
progress in experience, so: 

5. Load Character into Generator, rest up, relearn spells and 
buy better armour (only if you have found enough money 
on your travels); Save Character. 

6. Buy next Adventure in series and load Character in. 

7. Go to step 4. Until You have finished Adventure Eight 
then put your feet up for a well deserved rest. 


Available by M/Order (p+p free) 
Send cheques or Postal Orders to: 

Triffid Software Research 

12 Cullwood Lane 
Ashley 
New Milton 
Hampshire 
BH25 5QJ 


Available from good computer 
software stores nationwide 



SPECTRUM 48K, 
ELECTRON and 
COMMODORE 64 
versions coming soon 


Send your software to us. 
If accepted, 

generous royalties offered. 








AVAILABLE 

NOW! 

Super colour 
graphics with six 
skill levels &48 
k, screen 
Sk locations 




Space...the final frontier... 
as commander of a federation starship, 
your mission is to seek out a fellow captain 
who is lost in space. You must explore 
strange new galaxies, fight and destroy 
the enemy and boldly go where no man 
has gone before. 


tke P iese v S rfile snO vrEBen ' 
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Flee the 
gardener 
..catch 
fleas 


Help a senior spider 
round the garden in 
ALAIM SERGEANT'S 
lunchtime lark-about 

ME mam always told me that there were 
fairies at the bottom of our garden — 
well, I checked the other day and believe 
me it’s a load of old rubbish. The place is 
full of insects and other horrible creepy 
crawlies. 

Down in the bottom corner, just to 
the left of the garden roller, there’s the 
most gi-normous white lady spider I’ve 
ever seen in my life. I can tell she’s a lady 
by the way she keeps smashing 
everything in sight with her handbag. 

Alas and alack, she is now a widow 
and her daily diet of fresh fleas is getting 
more difficult to come by, what with 
inflation as it is, and VAT (vermin 
added tax) escalating out of all 
proportion. 

To cap it all the gardener, in his 
wisdom, has sprayed everything with 
this horrible yellow stuff, fatal to spiders 
I’m told. 

Anyway the lady is getting a bit 
weary in her old age and needs the help 


B onu 

L i o 


9QS 


S <cz o wr- 


2 0 


Bonus 

355 
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of your nimble fingers to get her around 
the garden. 

You move Arachnida - she didn’t 
pick the name - round the screen using: 
A (up) . (left) 

Z (down) , (right) 

You must catch a minimum of 20 
fleas before you move on to another 
screen. 

There are seven different screens in 
each round and on the first run through 
there are a maximum of eight fleas on 
the screen. This number decreases by 
one each round to make the game a little 
more difficult. 

You score 10 points for each flea you 
catch, plus whatever bonus points are 
left if you clear a screen. 

Just be careful of anything yellow - 
the walls, the frog, the plant pots, and 
even the gardener’s boots are poison¬ 
ous. 

One touch means certain death, 
although you do have five lives to play 
with. There is a time limit on each screen 
so don’t hang about ’cos the fleas won’t. 



THE following routines are a little more 
complicated and require further explan¬ 
ation: 

PROCtun(P%,D%,DD%) - Writes the 
music that is passed to PROCmusic. 
The parameters are passed because 
without this, each time the PROC is 
called, the pitch resets. 

It is this procedure which keeps the 
music playing throughout the game by 
using the ADVAL(—8) test. This checks 
for free spaces in the channel three 
sound buffer and, if there are any, 
continues playing the tune. 

PROCscroll — Inserts a space in the 
bottom right hand corner of the screen 
forcing it to scroll upwards. If you prefer 
not to have the scroll, replace 
PROCscroll in lines 4190, 4260, 4380 
and 4490 with CLS and omit lines 
4620-4720. 

PROCenv(e%) — This is necessary to 
cater for the 0.1 OS which only allows 
the user to define four envelopes. This 
game needs five and gets round this by 
defining two envelopes with the same 
number, (1), and toggling between them 
according to the value of e%. 
PROCscoretbl - In order to control the 
input to the high score table, I have used 
an OSWORD call set at &FFF1 (line 
700), with A% set to 0. 

This routine takes a specified number 
of characters from the currently selected 



r 


PROCEDURES 




Most of the procedures are adequately described by their names, but the 
following require a little more description. 


PROCinit_arrays 

PROCstartup 

PROCinit 
PROCsetup 
PROCsoundoff 
PROCtun (P%,D%,DD%) 


PROCmusic 

PROCdbl (msg$,X%,Y%,C%) 
PROCsgl (msg$,Y%,C%) 
PROCenv(e%) 

FNp (X%,Y%,C%) 


Initialises all arrays which are called but 
only once. 

Initialises screen and restores data for 
music for each round. 

Initialises variables and envelopes. 
Initialises certain variables and strings. 
Empties the sound queue at “Game over”. 
Creates the music and passes parameters 
to PROCmusic, P% - offset, D% - note 
length, DD% - pause length. 

Called throughout the game with updated 
parameters. 

Double height characters passing the 
string, X, Y coordinates and colour. 
Single height centralised characters pas¬ 
sing the string, Y coordinates and colour. 
Toggles between two envelopes with the 
same number. 

Hit check for colour C% at location X%, 
Y%. 


VARIABLES 


BO% 

BPITCH% 

co% 

dead% 

F% 

frog% 

FOOTflag% 

HI% 


Bonus. 

Base pitch for music. 

Count for number of lines scrolled up. 
Number of fleas caught. 

Random number for feet to move. 

Count for delay in froghop. 

Flag for deciding which foot to move on 
screen 1. 

Hiscore. 


lives% 

MAX% 

NEWRIGHTX%, NEWLEFTX% 
OLDRIGHTX%, OLDLEFTX% 
NEWRIGHTY%, NEWLEFTY% 
OLDRIGHTY%, OLDLEFTY% 
NEWX%, NEWY% 

OLDX%, OLDY% 

NFX%, NFY% 

OFX%, OFY% 

P%, D%, DD% 


snuffedit% 

SCREEN% 

XX%,YY% 


Lives. 

Maximum number of fleas on screen. 


Coordinates of feet. 

Coordinates of spider. 

Coordinates of frog. 

Offset from BPITCH%, note length, pause 
length. 

True or false for dead spider. 

Screen number. 

Coordinates of teletext spider. 


input stream. Input is terminated with a 
Return, the last character can be 
deleted and Ctrl + U deletes the 
entire line. 

If the maximum number of charac¬ 
ters is exceeded a VDU7 prompts. X% 
and Y% are the low and high bytes of 
the address of the parameter block. The 
parameters are set up using the 
following: 

block%?0 and block%?l are the low 
and high bytes of the start address of the 


input buffer. 

block%?2 is the maximum length of 
the input stream. 

block%?3 and block%?4 are the 
minimum and maximum acceptable 
Ascii values of the input. 

*FX12,0 resets the auto repeat delay 
and *FX15,1 flushes the keyboard 
buffer. OSWORD is called and finally 
the string in buff% is allocated to 
names$(N) using the string indirection 
operator $. 
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From Page 29 

5 REM (C) The Micro User 
iO PROCinit arrays 
20 H0DE7 

30 VDU23;8202;0;0;0; 

40 PROCinst 
50 *FX12,2 

60 REIliHHHtHHtHHHtiHHHt t 
70 REM START OF HAIR LOOP 
80 REHtHttitttHHtHtHHtttttt 
90 REPEAT 
100 HODE5 
110 PROCstartup 
120 HAXX»8 
130 PROCinit 
140 PROCsetup 
150 REPEAT 
160 PROCscreenl 
170 PRQCscreen.nue 
180 PROCHUSIC ' 

190 IF SCREENZ-2 PRGC$creen2 
200 IF SCREENX=3 PR0Cscreen3 
210 IF SCREENXM PR0Cscreen4 
220 IF SCREENX*5 PRQCscreen5 
230 IF SCREENS PR0Cscreen6 
240 IF SCR£ENX s 7 PR0Cscreen7 
250 PROCHUSIC 
260 PROCfleas 
270 REPEAT 

280 PROCtun(PX,DX,DDX) 

290 PROCbonus 
300 FLEAX*FLEAX+1 
310 IF FLEAX=HAXX FLEAX*0 
320 PROCeove.flea 
330 PROCspider 

340 IF FNp(NENXX,NENYX,2) snuffedit 
X-TRUE:PROCdeadspider:1ivesX-1ivesX-1 
350 F%=RNDCABS(12-SCREENX)) 

360 IFFX-1 AND SCREENX=1 PROCsove.f 
eet 

370 IF SCREENX-7 PROCfroghop 
380 UNTIL deadX>=20 OR snuffeditX 0 
R B0X<1 

390 IF B0X(1 AND livesX>=l THEN CL8 
! PROCsetup 

400 IF deadX>-20 THEN CL8:SOUNDStl 1, 
4,0,40:PROCdelay!2):SCX=SCX+BOX:PROCs 
coresPRQCsetupsSCREENX*SCREENX+1 1 IF S 
CREEND7 SCREENX=l:HAXX s HAXX-l 
410 IF livesX>*l AND snuffeditX THE 
N CLS:PRQCscoresPR0C1ives:PROCsetup 
420 UNTIL 1ivesX<1:PROCgaaeover:HOD 
E7: VDU23; 8202; 0; 0; Of 0; sPROCsoundoH: P 
RQCscoretbl 
430 CLS 

440 PROChiscores 
450 UNTIL 0 

460 VDU22,7iREPORT:PRIMT" at line", 
ERL 

470 END 

480 SEINhhhhhhhhhhihhh 


490 REM END OF MAIN LOOP 

500 REHttittttHHtttttttHttttttH 

510 DEFPROCstartup 

520 RESTDRE3B30 

530 VDU23;8202;0;0;0; 

540 VDU24,20;20;1260;B80; 

550 COLOUR130!BCOLO,1301BCOLO,129!C 
LS:CLS 

560 VDU24,34$36;1246;866; 

570 SCOLO,128:CLG:6C0L0,1 

580 ENDPROC 

590 

600 REHitittitttttttttiititititiitt 

Ht 

610 DEFPROCinit.arrays 
620 DIH block! 6:DIH buffX 20 
630 DIHFLEAS136),scX(ll),na«e$(ll! 
640 FOR NX=0 TO H:scX(NX)-ABS(l0-N 
X)tl00:naeet!NX) B *The Hicro User":NEX 
T 

650 ENDPROC 
660 

670 REHtitttttHttHttHtttttttttti 
Ht 

680 DEFPROCinit 

690 X B 0:livesX B 5:nusicoffX B 0 

700 0SN0RD*iFFFl 

710 BPITCHX a 43 

720 FOOTflagX=l 

730 ENVEL0PE1,1,20,-20,10,10,0,0,0, 

0 , 0 , 0 , 0,0 

740 ENVEL0PE2,128,30,-10,0,10,3,0,1 
26,-10,0,0,126,0 

750 ENVELOPES,6,95,0,0,137,0,0,92,0 
,0,-84,82,100 

760 ENVEL0PE4,1,1,0,0,200,0,0,126,0 
,0,-126,126,126 

770 ENVELOPES,1,43,0,0,100,0,0,126, 
0,0,-126,126,126 
780 SCX=0:HIX s 0 :SCREENX=1 
790 PROCchars 
800 PROCfeet 
810 ENDPROC 
820 

830 REH*****HttHtttttttttttHttit 
t 

840 DEFPROCfleas 

850 FOR FLEAX*0 TO HAXX-l:PR0Cnew_# 
lea(FLEAX):NEXT 
860 FLEAX B 0 
870 ENDPROC 
880 

890 REHHtHHHHHHHHHHHtit 
It 

900 DEFPROCsoundoff 
910 SOUNDlll,0,0,0 
920 80UNDI12,0,0,0 
930 S0UNDH3,0,0,0 
940 ENDPROC 

950 REHHttHHHHHtHHHHtm 

960 REH PLACE FEET 

970 REHHiHHHHHHHHHHHH 



980 DEFPROCfeet 
990 FOOTf1agZ-1:VDU5 
1000 NEHRI8HTxX s 1800:OLDRI6HTxX S NENR 
IBHTxX 

1010 NENRI8HTyX a RND(24)t32+64 
1020 0LDRI8HTyX=NENRI6HTyX 
1030 NENLEFTyX=NENR16HTyX-64 
1040 OLDLEFTyX=NENLEFTyX 
1050 NENLEFTxX=NENRI6HTxX-100:0LDLEF 
TxX=0LDRI6HTxX-100 
1060 HOVE NEHRI6HTxX,NEHRI6HTyX:6CQL 
3,2:VDU226,227:HOVE NENLEFTx X,NENLEFT 
yX:VDU226,227,4 
1070 ENDPROC 
1080 

1090 REHiHHHtttfHttHiiHHHHt 
t 

1100 DEFPROCsetup 
1110 TIHE=0 
1120 BnuffeditX-FALSE 
1130 deadX=0:FLEAX=0 
1140 frogX=0:NX=40 
1150 S0UND&11,5,17,15 
1160 BOZ-O::NENXX=t60:NENYX=64:VDU5: 
MOVENEMXX,NEMYX:6C0L3,3:VDU224 
1170 tiee 1i«it=RND(40)+40 
1180 SC$ s STR$(SCX):B04 s STR$(BOX):HII 
=STR$(HIX):SCREEN$ a STRI(SCREENX):dead 
$ B STRI(deadX):1ives$=STR$(11vesX) 

1190 OLDR16HTxX=-1500:OLDLEFTxX=-150 
0:NEMR18HTx X=-1500:NEWLEFT x X=-1500 
1200 ENDPROC 
1210 

1220 REHtHHHHHHHHHHHHHt 
1230 DEFPROCbonus 
1240 COLOUR1 
1250 VDU4 

1260 B0X=999-TIHE/5 
1270 IF B0X(0 THEN B0X*0 
1280 B0$=STR$(B0X) 

1290 PRINTTAB119-LEN(BQ$),1);" "{BOX 

t 

1300 VDU5 
1310 ENDPROC 

1320 REHtHHHHHHHHHHHHHt 
it 

1330 REH CREATE SCREENS 1 TO 7 
1340 REHtttttttttttttttttttttititttt 

it 

1350 DEFPROCscreeni 
1360 VDU4 

1370 C0L0UR1:PRINTTAB(0,1)"Score ";T 
AB(10-LEN <SC$),1)SCX 
1380 PRINTTAB(11,1)"Bonus "jTAB(20-L 
EN(B0$),1)BOX 

1390 C0L0UR0:PRINTTAB(0,3)"Fleas ";T 
AB(10-LEN(dead!))deadX:PRINTTAB(11,3) 
"Lives"!TAB(20-LEN!1ivest),3)1ivesX 
1400 VDU5 
1410 ENDPROC 
1420 DEFPRQCscreen2 
1430 BCOLO,2 
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1440 VDU5 

1450 Mall$=STRIN6$(5,CHR$(228)) 

1460 M0VE32,704:PRZNTMal1 * 

1470 M0VE480,704:PRINTMal 1 $ 

1480 H0VE920,704sPRINTMal 14 
1490 HQVE32,340:PRINT*allt 
1500 H0VE480,340:PRINT«allt 
1510 t10VE928,340sPRINT msI 14 
1520 K0VE256,544:PRINTMall$ 

1530 M0VE704,544:PRINTm*! 14 
1540 M0VE256,192:PRINTMal 14 
1550 M0VE704,192sPRINTMal14 
1560 ENDPROC 
1570 DEFPR0Cscreen3 
1580 6C0L0,2 

1590 FQRPX=0 TO 10:HOVE RND!34)*32+3 
2,RND(26)*32+32:VDU229:NEXT 
1600 F0RP%=0 TO 10:HOVE RND(34)*32+3 
2,RND(26)*32+32:VDU230:NEXT 
1610 ENDPROC 
1620 DEFPR0Cscreen4 
1630 8C0L0,2 

1640 HOVE160,700:H0VE350,700:PL0T85, 

160,500 

1650 H0VE350,700:HOVE350,500:PL0T85, 

160.500 

1660 H0VE930,700:HOVE 1114,700:PLQTB5 
,930,500 

1670 H0VE930,500:HOVE 1114,500:PL0T85 
,1114,700 

1680 H0VE550,700:HQVE734,700:PL0T85, 

550.500 

1690 H0VE550,500:H0VE734,500:PL0T85, 
734,700 

1700 HOVE 160,400:H0VE350,400:PL0T85, 

160,200 

1710 H0VE350,400:H0VE350,200:PL0T85, 

160,200 

1720 HOVE930,400:HOVE1114,400:PL0T85 
,930,200 

1730 H0VE930,200:HOVE 1114,200 s PLQT85 
,1114,400 

1740 H0VE550,400:H0VE734,400:PL0TB5, 

550,200 

1750 H0VE550,200:M0VE734,200:PL0TB5, 
734,400 
1760 ENDPROC 
1770 DEFPRQCscreen5 
1780 6C0L0,2 
1790 LOCAL XX, YX 
1800 F0RXX=192 TO 1024 STEP256 
1810 FQRYX=100 TO 804 STEP 192 
1820 NQVEXX,YX:HQVEXX,YX+96:PLQT85,X 
X+92.YX+96 

1830 HOVEXX,YX:HOVEXX+92,YX:PL0T85,X 
X+92,YX+96 
1840 NEXT YX:NEXTXX 
1850 ENDPROC 
1860 DEFPRQCscreen 6 
1870 6C0L0,2 
1880 blockt=CHRt228 
1890 H0VE160,128:PRINTSTRINBt(3,bloc 


A 


kt) 

1900 HOVE160,800:PR1NTSTRIN64 <3,bloc 
kt) 

1910 F0RYX S 128 TO 400 STEP32:HOVE160 
,YX:PRINTblock4:NEXT 
1920 F0RYX S 512 TO 800 STEP32:H0VE160 
,YX:PRINTblock4:NEXT 
1930 HQVE960,128:PRINTSTRIN64!3,b1oc 
k$) 

1940 H0VE960,800:PRINTSTRIN64(3,bloc 
k$) 

1950 F0RYX*128 TO 400 STEP32:HQVE108 
8,YX:PRINTblock4:NEXT 
1960 F0RYX=512 TO 800 STEP32:H0VE108 
8 ,YX:PRINTblock4:NEXT 
1970 F0RYX=224 TO 704 STEP32:H0VE320 
,YX:PRINTblock$:NEXT 
1980 F0RYX=224 TO 704 STEP32:HQVE928 
,YX:PRINTblockt:NEXT 
1990 H0VE384,224:PR INTSTR1NB$(3,b1oc 
kt) 

2000 HOVE384,704:PRINTSTRIN8t(3,b1oc 
k$) 

2010 HOVE736,224:PRINTSTRINB*(3,b1oc 
k$> 

2020 H0VE736,704:PR1NTSTR1N8Ii3,b1oc 
kt) 

2030 HOVE512,352:PRINTSTRIN6t(5,b1oc 
kt) 

2040 HQVE5l2,576:PRINTSTRlN6t(5,bloc 
kt) 

2050 F0RYX=384T0448STEP32:H0VE512,YX 
:PRINTblockt:NEXT:H0VE768,384:PRINTbl 
ockt 

2060 H0VE512,544: PRINTbl ockt: FORYXM 
80T0576STEP32:H0VE768,YX:PRINTb1oc kt: 
NEXT 

2070 ENDPROC 
2080 DEFPRQCscreen7 
2090 SC0L3,2 

2100 NFXX S RND(800)+100:NFYX=RND(640) 
+200 

2110 HQVENFXX,NFYX 

2120 VDU231,232,233,10,8,8,8,234,235 
,236,10,8,8,8,237,238,239 
2130 MOVENFXX,NFYX:6COLO,3:VDU9,240 
2140 OFXX a NFXX:OFYX*NFYX 
2150 ENDPROC 

2160 REH**************************** 

* 

2170 REH HOVE FRQB 

2180 REH**************************** 

* 

2190 DEFPROCfroghop 
2200 frogX=frogX+t:IF frogX <20ENDPR 
OC:ELSE frogX=0 
2210 6C0L3,2 
2220 NOVEOFXX,OFYX 

2230 VDU231,232,233,10,8,8,8,234,235 
,236,10,8,8,8,237,238,239 
2240 HOVEOFXX,OFYX:6C0L3,3:VDU9,240 
2250 GC0L3,2 


2260 NFXX®RND(B0Q)+100:NFYX“RND(640) 

+200 

2270 HOVENFXX,NFYX 
2280 VDU231,232,233,10,8,8,8,234,235 
,236,10,8,8,8,237,238,239 
2290 HOVENFXX,NFYX:BCOLO,3:VDU9,240 
2300 QFXX=NFXX:QFYX=NFYX 
2310 ENDPROC 
2320 

2330 REH**************************** 

* 

2340 DEFPROCscore 
2350 VDU4 
2360 COLOUR1 
2370 SCt»STRt(SCX) 

2380 PRINTTABXlO-LEN(SCt),1)jSCX 
2390 VDU5 
2400 ENDPROC 
2410 

2420 REH**************************** 

* 

2430 DEFPROClives 
2440 VDU4 

2450 livest s STRt(livesX) 

2460 PRINTTAB(20-LEN(1ivest),3); 1 ive 
sX 

2470 ENDPROC 
2480 

2490 REH**************************** 

H 

2500 DEFPROCscreen_nue 
2510 VDU4 

2520 SCREENt*STRt(SCREEN!) 

2530 COLOUR 130:C0L0UR0 
2540 PRINTTABU14-LENtSCREENt))DIV 2 
,16);’Screen:’jSCREENX:PROCdelay(2):P 
RINTTAB((14-LEN(SCREENS))DIV 2,1 6 ) 5 :V 
DU4:C0LQUR128: PRINTTAB K14-LEN (SCREEN 
t) )DIV 2,16);SPC(8):COLOUR130:VDU5 
2550 PROCHUSIC 
2560 ENDPROC 
2570 

2580 REH**************************** 

** 

2590 DEFPRQCgaieover 
2600 VDU4 

2610 PRINTTAB(6,16)’6aie over’ 

2620 VDU5 
2630 ENDPROC 
2640 

2650 REH**************************** 
m 

2660 DEFPROCfleanu* 

2670 VDU4 

2680 deadt s 5TRt(dead!) 

2690 PRINTTAB(lO-LEN(deadt),3)jdead! 

2700 ENDPROC 

2710 DEFPROCeove flea 

2720 LOCAL XX,YX,TX 

2730 XX*FLEAS(FLEAX+0) 

2740 YX s FLEAS!FLEAX+12) 

- V 
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2750 TX=FLEAS(FLEAX+24) 

2760 8COL3,1 

2770 HQVEXX,YX:VDUS:VDU22S 
2780 TX=TX+1 

2790 IF TX> a ti.eji.it THEN SOUNDil 
2,2,200,20:PROCnex flea(FLEAX):ENDPRO 
C 

2800 N0VEXX,YX:VDU5:VDU225 
2810 FLEAS(FLEAX+0)=XX 
2820 FLEASCFLEAX+12)*YX 
2830 FLEAS(FLEAX+24)®TX 
2840 ENDPROC 
2850 

2860 REH*t*HHH»*Hm«HH**HHt 
2870 DEFPROCnex flea(FLEAX) 

2880 6C0L3,1 
2890 REPEAT 

2900 FLEAS(FLEAX+0)=RND(34)*32+32 
2910 FLEAS(FLEAX+12)=RND(26)#32+32 
2920 FLEAS(FLEAX+24)=RND(100) 

2930 UNTIL POINT(FLEAS(FLEAX+0),FLEA 
S(FLEAX+12))*0 AND POINT(FLEAS(FLEAX+ 
0)+64,FLEAS(FLEAX+12> +32)=0 AND POINT 
(FLEAS(FLEAX+0)- 8 ,FLEAS(FLEAX+12)- 8 )= 
0 

2940 H0VEFLEAS(FLEAX+0),FLEAS(FLEAX+ 
12):VDU5,225 
2950 ENDPROC 
2960 

2970 REH***M«*«HHHH**HHHHt 

H 

2980 DEFPROCcrunch 
2990 SOUND&11,1,90,255 
3000 SOUNDIt 10,-15,7,3 
3010 ENDPROC 

3020 REH*HH**HHHMt«tHHH*« 
3030 REH H 0 V E FEET 
3040 REH*h»**h*h*«hhm*m****** 
3050 DEFPRQCnoveJeet 
3060 FOOTflagX=FOOTflagX EOR 1 
3070 IF FOOTflagZ-O NEMR16HTxX-NEMRI 
SHTxX-200 

3080 IF FOOTflagXM NEHLEFTxX-NEHLEF 
TxX-200 

3090 IF NENRIBHTxX<*-300 NENRIBHTxX® 
0:PROCfeet:ENDPROC 

3100 IF FOOT(lagX-l 6C0L3,2:H0VE NEN 
LEFTxX,NEWLEFTyX:VDU226:HOVE NENLEFTx 
X+64,NEWLEFTyX:VDU227:PROCcrunch:HOVE 
OLDLEFTxX,OLDLEFTyX:VDU226:HOVE OLDL 
EFTxX+64,OLDLEFTyXs VDU227 
3110 IF FOOTflagX=0 6C0L3,2:H0VE NEN 
RI6HTxX,NEWRI6HTyX:VDU226:HOVE NENRI 6 
HTxX+64,NENRIGHTyX:VDU227:PROCcrunch: 
HOVE OLDRISHTx X,OLDR16HTyX:VDU226:HOV 
E OLDR16HTx X+64,OLDRISHTyX:VDU227 
3120 0LDRI6HTxX s NEWRI6HTxX:OLDLEFTxX 
=NENLEFTxX 
3130 ENDPROC 

3140 REH«HH*H*H#*Mt«m»MMM 

V i 


3150 REH HOVE SPIDER 

3160 REHmm*mmm**m*m*t* 

* 

3170 DEFPROCspider 
3180 OLDXX=NEHXXiOLDYX*NEHYX 
3190 IF INKEY(-17) MiBicoffl-l 
3200 IF INKEY(-102) ■usicoffX=0 
3210 IF INKEY(- 66 ) NEHYX-OLDYX+32 
3220 IF INKEY(-98) NENYX a 0LDYX-32 
3230 IF INKEY(-103) NEHXX«OLOXX-32 
3240 IF INKEY (-104) THEN NENXX=OLDXX 
+32 

3250 IF NENXX<34 THEN NENXX S 34 
3260 IF NEHXX>1186 THEN NENXX*1186 
3270 IF NENYK64 THEN NEHYX-64 
3280 IF NENYX >868 THEN NEWYX -868 
3290 IF NOT(NEHXX s OLDXX AND NENYX=QL 
DYX)HOVE NENXX,NENYX:8C0L3,3:VDU224:H 
OVE OLDXX,OLDYX:VDU224 
3300 IF POINT(NENXX+32,NENYX-16)*2 T 
HEN PROCt«hichflea 
3310 ENDPROC 
3320 

3330 REH*HH»**m»m***H«HHHt 

* 

3340 DEF PROCwhichflea 
3350 LOCALCX,NX 
3360 REPEAT 

3370 IF POINT(FLEAS(NX)+32,FLEAS(NX+ 
12)-16)=2 THEN SOUNDO,-15,4,2:GCOL3,1 
:VDU5:HOVE FLEAS(NX),FLEAS(NX+12):VDU 
225,5:PROCnex J 1ea(NX):CX-1:SCX-SCX+1 
0:deadX s deadX+l:VDU4:PROCscore:PROCf1 
eanu«:VDU5 
3380 NX-NX+1 

3390 UNTIL CX OR NX> a HAXX 

3400 ENDPROC 

3410 

3420 REH***H*Hm***tm*t***«*»*» 
»* 

3430 DEFPRQCdelay(SECS) 

3440 LOCAL tiae 
3450 ti»e s TIHE 

3460 REPEAT:PROCHUSIC:UNTILTIHE >»fcia 
e+(100+SECS) 

3470 ENDPROC 

3480 

3490 

H 

3500 DEFPROCchars 

3510 VDU23,224,0,66,165,24,126,153,3 

6,66 

3520 VDU23,225,0,0,48,56,24,20,0,0 
3530 VDU23,226,0,63,127,255,255,127, 
63,0 

3540 VDU23,227,0,128,206,207,207,206 
,128,0 

3550 VDU23,228,123,123,123,0,222,222 

, 222,222 

3560 VDU23,229,255,255,255,126,126,1 
26,60,60 

3570 VDU23,230,60,60,126,126,126,255 


,255,255 

3580 VDU23,231,0,0,0,1,1,1,1,1 
3590 VDU23,232,0,66,231,255,24,24,24 
,24 

3600 VDU23,233,0,0,0,128,128,128,128 
,128 

3610 VDU23,234,1,1,3,3,25,60,62,31 
3620 VDU23,235,255,255,195,189,126,2 
55,255,255 

3630 VDU23,236,128,128,192,192,152,6 
0,124,248 

3640 VDU23,237,31,15,7,3,3,7,14,124 
3650 VDU23,238,255,128,102,102,102,1 
02,102,231 

3660 VDU23,239,248,240,224,192,192,2 
24,112,62 

3670 VDU23,240,0,0,0,0,231,231,132,1 
32 

3680 VDU23,241,0,0,0,0,99,99,0,0 
3690 VDU23,242,0,0,0,0,0,0,99,99 
3700 VDU23,243,0,0,60,66,129,0,0,0 
3710 ENDPROC 
3720 

3730 REHh«hmmmmmhhmm*«h» 

* 

3740 DEFPROCtun(PX,DX,DDX) 

3750 IF ausicoHX ENDPROC 
3760 IF ADVAL(-8)<8 ENDPROC 
3770 IF BPITCHXM01 BPITCHXM3 
3780 READPX,DX,DDX 
3790 S0UND3,-5,BPITCHX+PX,DX 
3800 SOUNDS,0,0,DDX 
3810 IF PX-0 AND DX*0 AND DDX*0 REST 
ORE 3830:BPITCHX=BPITCHX+5:SOUNDS,0,0 
,40 

3820 ENDPROC 

3830 DATA 0,8,4,28,4,8,28,8,0,16,4,0 
,8,8,0,16,4,0,0,12,0,28,12,0,28,16,8, 
48,8,0,28,8,4,28,8,0,36,4,0,28,8,0,20 
,4,0,16,12,0,0,8,0,8,16,8 
3840 DATA 36,8,0,32,4,0,36,8,0,44,4, 
0,48,8,0,44,4,0,48,8,0,56,4,0,64,8,0, 
56,4,0,64,8,0,68,4,0,76,16,8,76,8,0,6 
4,4,0,48,8,0,56,4,0,64,8,0,56,4,0,64, 
4,0,76,4,16,28,8,0,48,16,0,0,0,0 
3850 

3860 REK***ff**Hm***m*HHa*«t 

♦ 

3870 DEFPROCHUSIC 
3880 PRQCtun(PX,DX,DDX) 

3890 ENDPROC 
3900 

3910 REHbhhhhmhmmhhmmm* 

* 

3920 DEF FNp(XX,YX,CX) 

3930 =P0INT(XX,YX-16)=CX OR POINTIXX 
,YX) S CX OR POINT(XX+60,YX)=CX OR POI 
NT(XX+32,YX) a CX 
3940 

3950 REH***m**«hh**»***«******* 
** 

3960 DEFPROCdeadspider 
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3970 G0UNDM1,3,100,16 

3980 ENDPROC 

3990 

4000 REH**************************** 
h* 

4010 DEFPRQCinst 
4020 LOCALXXX.YYX 
4030 FORYX*i TO 4 

4040 PRINT TAB(6,YX)CHR*129;CHR*157; 
TAB(35,YX)CHR$156 
4050 NEXT 

4060 PROCdbl t" N H I T E WIDOW 
*,7,2,7) 

4070 RESTORE 4160 
4080 REPEAT 
4090 READXXZ,YYZ 
4100 PRINTTABtXXX,YYX)CHR*255 
4110 UNTILXXX=24 AND YYX*18 
4120 F0RYX=21 TO 24 
4130 PRINTTAB(6,YZ)|CHR$132;CHR$157; 
TAB(35,YX);CHR*156; 

4140 NEXT 

4150 PROCdbl(-by Alan Sergeant‘,11,2 
2,7) 

4160 DATA 16,7,25,7,15,8,17,8,20,8,2 
1,8,24,8,26,8,14,9,18,9,20,9,21,9,23, 
9,27,9,16,10,17,10,19,10,20,10,21,10, 
22,10,24,10,25,10,15,11,18,11,19,11,2 
0,11,21,11,22,11,23,11,26,11,14,12,17 
,12,18,12,19,12,20,12,21,12,22,12,23, 
12,24,12,27,12 

4170 DATA 16,13,18,13,19,13,20,13,21 
,13,22,13,23,13,25,13,15,14,19,14,20, 
14,21,14,22,14,26,14,15,15,18,15,20,1 
5,21,15,23,15,26,15,17,16,24,16,17,17 
,24,17,17,18,24,18,999,999 
4180 A*=INKEY*(200) 

4190 PROCscroll 
4200 RESTORE 3830 

4210 F0RYX*10 TO 13sPRINTTAB(11,Y%); 
CHR*129;CHR*157;TAB(28,YX);CHR*156;:N 
EXT 

4220 PROCdbl(CHRI136+- INSTRUCTIONS? 
-,10,11,3) 

4230 REPEAT :G= 6 ET 
4240 UNTIL B*78 OR 8*89 
4250 IF 6*78 THEN ENDPROC 
4260 PROCscroll 

4270 PRINTTAB(14,2)CHR$141;CHRf130; • 
ARACHNIDA* 

4280 PRINTTAB(14,3);CHR*141;CHR*131; 
'ARACHNIDA* 

4290 PROCsngCis a lady and lives al 
one.',5,3) 

4300 PROCsngfShe aust survive on a 
diet of fleas.',7,3) 

4310 PROCsngCLife won't be easy. Th 
e garden walls',9,3) 

4320 PROCsngfand all obstacles, hav 
e been painted”, 11 ,3) 

4330 PROCsng('with a deadly yellow p 
oisan.", 13,3) 


4340 PROCsng("She lust eat 20 fleas 
before aoving',16,1) 

4350 PROCsngCto a different locatio 
n.',18,1) 

4360 PROCsng('Press any key to conti 
nue',22,3) 

4370 A* 6 ET 
4380 PROCscroll 

4390 PROCsng('Hove Arachnida around 
using these keys',4,3) 

4400 PROCdbl("A UP',11,7,1) 

4410 PROCdbl CZ . DOWN*,11,9,1 

) 

4420 PROCdbl('< . LEFT*,11,11, 

1 ) 

4430 PROCdblC> RIGHT', 11,13 

,D 

4440 PROCdbl(“Q/H turn OFF/ON the au 
sic',6,16,1) 

4450 PROCsng CREHEHBER, touch anyth! 
ng yellow',19,3) 

4460 PROCsng('or run out of tiae and 
you lose a life.', 21 ,3) 

4470 PROCsng("Press any key to conti 
nue',24,6) 

4480 A*GET 
4490 PROCscroll 

4500 PROCsng.fYou score 10 for each 
flea collected',3,3) 

4510 PROCsng('plus the bonus left on 
a cleared screen',5,3) 

4520 PROCsngCS fleas appear on sere 
en at the start.',8,3) 

4530 PROCsng(‘As you succeed on the 
first 7 screens',10,3) 

4540 PROCsngCthis total is reduced 
by one per round.', 12 ,3) 

4550 PROCsng('Don't expect the fleas 
to hang about!',16,3) 

4560 PROCsng('They don't particularl 
y like spiders!*,19,1) 

4570 PROCsng(“Press any key to start 
*,23,6) 

4580 A=GET 
4590 CLG 
4600 ENDPROC 
4610 

4620 REH***tt**ttt***tt*tt*t*tt**t*t 

» 

4630 DEFPROCscrol 1 
4640 coX=0 
4650 REPEAT 

4660 PRINTTAB(39,24)* * 

4670 coX*coX+l 

4680 FQRDELAY* 1T0 200sNEXT 

4690 UNTILcoX>16 

4700 VDU31,0,0 

4710 ENDPROC 

4720 

4730 REH**************************** 
** 


4740 DEFPROCdbl(asg*,XX,YX,CX) 

4750 FOR NX*0 TO liPRINT TAB(XX,YX+N 
X);CHR$141;CHR*(128+CX);asg$;:NEXT 
4760 ENDPROC 

4770 DEFPROCsng(asgi,YX,CX) 

4780 XX*(40-LEN(asg*))/2 

4790 PRINTTAB(XX,YX)CHR*(128+CX);asg 

4800 ENDPROC 
4810 

4820 REH**************************** 
at* 

4830 DEFPROCscoretbl 
4840 N*0|REPEATN*N+1 
4850 UNTIL SCX>scX(N) OR N*ll 
4860 IF N*ll ENDPROC 
4870 FOR Nl*ll TO N STEP-1sscX(Nl)=s 
cX(Nl-l):naae$(Nl)*naae$(Nl-l):NEXT 
4880 scX(N)*8CX 
4890 CLG 

4900 PROCdbl(CHR*(136)+'Congratulati 
ons",10,6,7):PR0Csng(*Your score is i 
n the top ten",12,6):PR0Csng('Please 
enter your naae',14,6) 

4910 PRINTTAB(10,16)CHR*(134)CHR*(15 
7)CHR*(129);SPC(18);CHR*(156);TAB(13, 

16)j 

4920 blockX?0*buffX HOD 256 
4930 blockX?l=buffX D1V 256 
4940 blockX?2*17;REH aaxiaua nuaber 
of characters. 

4950 blockX?3*32:REH ainiaua A8CII v 
alue = 32 

4960 blockX?4*126:REH aaxiaua ASCII 
value * 126 

4970 XX-blockX HOD 256 
4980 YX*blockX DIV 256 
4990 AX*0 
5000 PROCdelay(l) 

5010 *FX12,0 
5020 *FX15,1 
5030 CALL OSNORD 
5040 naae*(N)=*buffX 
5050 ENDPROC 
5060 

5070 REH***HMHt*ttttttttt*t****** 
at 

5080 DEFPROChiscores 
5090 REPEAT 

5100 PROCdbl(CHR$(157)+CHR*(131)+" 
White Nidow Hall Of Faae.',0,0,l):P 
RINTTAB(38,0);CHR*(156);TAB(38,1);CHR 
*(156); 

5110 FOR NX*1 TO lOiPRINT TAB(8,NX*2 
+2); CHR* (RND (6) a-12B>; scX (NX); TAB (16,N 
2*2+2);CHR*(RND(6)+128);naae*(NX);:NE 
XT 

5120 PROCsng('Press space bar for a 
new gaae',24,7) 

5130 *FX15,1 

5140 UNTIL INKEY(-99) 

5150 ENDPROC 
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The continuing saga of Bill the 
Spaceman and his quest for fame 



WE thought he had gone, but Simon 
Phipps returns yet again with a sequel to 
the highly exciting Dug-Dig (Micro 
User, May 1984). This time though, he 
had incorporated a section of machine 
code in his latest marvel to make the 
game a little faster and obviously that 
much harder. 

Without further delay we continue 
the saga of Spaceman Bill and his quest 

for fame, fortune and an Acorn 
Electron. (How did that get in?) 

There he was with a handful of 
krystals on a strange asteroid away in 
the Hilton system. It was quite risky this 
mining business and Bill was a little 
worried about the fact that he might not 
be able to spend all of his profits, what 
with those nasty Scrugolds and all. 

So packing another gem into his 

starship and zapping a last alien he 
blasted off for territories unknown and 
relaxed with a jinantonnixx and his copy 
of the book that caused him all the 
trouble in the first place. 

He had reached chapter 21,884 by 
the time the warp drive had cut in when 
suddenly he found what he thought 
might be a safer way of making money. 
Gugvunt Bleuch, author of the best 
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selling “Jewels of the Universe” had 
made a killing on his book, but Bill was 
no author, so turning the page he found 
a section on the sacred Green Teapots 
of Quarg. 

Wasting no time Bill punched the 
right coordinates into his flight 
computer and headed for the Betel- 
joolien star cluster and once more 
(hopefully) fortune. (He was starting to 


give up on the fame bit.) 

Bill was now certain about every¬ 
thing. Surely nothing dangerous could 
happen. According to the book the 
strange teapots were piled high all over 
the planet Neeguss - the umptifirst 
moon of the star cluster. 

However he was a trifle worried 
about the fact that the last page of that 
chapter had been torn out. 


As it happened the last page did give a 
warning along the lines of “Keep away 
from it mate, it’s far too dangerous”, but 
as Bill didn’t know this he landed his 
starship with an ungainly thud on the 
alien terrain. 

He had noticed on the way down that 
there was a great deal of low cloud cover 
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From Page 35 

and that it moved quickly and 
erratically across the planet’s surface. 

Had Bill realised that the clouds were 
really vaporoids, a strange life form only 
found in a few video games across the 
galaxy, he probably wouldn’t have 
landed. But land he did. 

Of course that wasn’t all that was 
stopping Bill from having an easy life. 
The planet’s population mainly consis¬ 
ted of Uecchian Cloudhoppers, small 
cute and cuddly nasties that spent their 
whole lives jumping up and down, 
annoying unwary space travellers and 
consuming the little oxygen that 
remains in the planet’s atmosphere. 

Bill dived out of his starship. Taking a 
large gulp of air he ran towards the 
teapots. Night was falling and he knew 
that any collision with a Cloudhopper 
would mean certain death. Can he make 
it? Get typing and find out... 

It really is quite simply a matter of 
collecting some objects and returning 



them to your waiting starship, avoiding 
numerous space nasties and only having 
one minute’s supply of air to do it in - a 
theme that has become rather popular 
recently. 

The game hinges around the large 
section of assembly language (lines 
370-520) which controls no less than 18 
separate objects on the screen at once. 

This technique uses the rather 


“illegal” method of directly accessing 
the screen, but seeing that many leading 
software houses use this method it is 
quite acceptable. 

Just to make the game harder, as each 
level is progressed night begins to fall 
(literally) as the stars come out and the 
Cloudhoppers refuse to jump quite as 
high into the cold night air... 

Have fun ... ! 


, Variable used in PROC' ] 

MAN to find out what must 
be added to Bill’s x coor¬ 
dinate value depending 
upon the keys pressed and 
in FNPEEK(x%,y%)to ald 
in the calculation of the 
Ascii code of the character 

position (x%,y%)- 

% The value of the address 
from which the alien and 
cloud definitions are stored. 

AR% A flag indicating ^^ 
carrying a teapot, if zero 
then no object is being 
carried. 

:ODE% Value of the address from 
which the assembler code is 
assembled into. 

no/ Used in the generation ot 
the starfield to calculate the 
base y coordinate for th 
stars being plotted. 

DIR* Value of the address from 

Which the cloud direction 
table is stored A value in 
the table of 2 indicates the 
cloud moves left, a value of 

1 moves it right. 

-w% Value of the address of the 
” start of the alien direction 

table. A value in this table ot 

2 moves the alien up. 


P% 


Q% 

S% 

sc% 

T% 


Y% 


VARIABLES 

otherwise it will go down. 

Used in the generation ot 
the starfield. 

Table of the hi-bytes of the 
cloud’s positions. 

Table of the hi-bytes of the 
alien’s positions. 

Used to generate the star- 

A flag indicating if Bill is 
Jill alive, 0 indicates yes, 
otherwise it’s splatto_ 

Table of the lo-bytes of the 
cloud’s positions. 

Table of the lo-bytes of the 
alien’s positions. 

Program counter, where th 
assembler code is presently 
being assembled into. 

Bill’s x coordinate. 

Plaver's present score. 

The number of screens 
successfully completed 
General variable used for 
virtually everything - m fact 
my favourite variable. 
Number of teapots collec- 
ted 

Start address of table of* 
values of the cloud s posi- 

Start address of table stor¬ 
ing Cloudhopper y coor¬ 
dinates. 


o% 


Variable passing on OPT 
alue to the assembler 


V 

routine. 

x o /o variable used to pass 

various x values to PROCS. 

y o /o Variable used as £ pass 

y various y values to PROCS- 

..am* Holds the multicoloured 

MAN$ definition for the B.ll 

character. 

« Used in PROCP(x%,y°/°> 

aS a$) to enable a string to be 

passed to that procedure. 

A Calculates various screen 

addresses in PROCMbM. 

B Execution address of cloud 

movement routine, 
r Execution address of cloud 

initialisation routine. 

D Execution address of alien 

in initialisation routine. 

F Execution address of alien 

movement routine. 

Loop variables. 

Used in PROCMEM to 
generate random screen 
addresses. 

Used as X in P ROCMEM to 
generate random screen 
addresses. 


JJ 
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1REH BILL BOUNCES B 
A C K ! 

2REH By Siaon Phipps (C) The Hicr 
o User 
10*FX9,7 
20*FX10,7 

30VDU23,224,127,127,127,0,247,247, 
247,0 

40VDU23,225,8,28,192,95,125,125,62 

,0 

50VDU23,226,8,28,0,0,0,64,32,0 
60VDU23,227,24,24,60,126,255,255,2 
55,153,23,228,24,0,0,24,24,0,0,0,23,2 
29,0,0,0,0,129,129,153,153 

70VDU23,230,56,56,16,254,16,40,40, 
108,23,231,0,0,0,56,16,40,40,0 
80VDU23,232,128,72,2,34,132,52,110 
,255 

90ENVELOPE3,1,-10,-37,-89,24,13,46 
,43,106,64,64,135,0 
100ENVELDPE1,1,12,-5,15,1,1,60,127, 
0,127,127,-127,-127 
110H0OE7 
120D i HCOOEXtt 1 DO 
1300IHXZ8 
140DIHDIRZB 
150D1HHIZ8 
160DIHLQX8 
170DIHCX95 
180DIHYZ8 
190DIHHYZ8 


PROCASS 


PROCBONUS 


procded 


procman 

procmem 

PROCP 


PROCEDURES 

Contains the 

assembler code for 

the aliens and pROCSCORE 

clouds. 

Calculates the bonus 

points given for 

completing one PR 0 CSCREEN 
screen. PROCTITLE 

Splats Bill about the 
bottom of the 
screen. 

Moves Bill around p R QCVARI 

the screen. 

Initialises the cloud 

and alien positions. DRr _ entre 

Yet again simulates 

the V DUJ -.PRINT 

TAB(x,y)a$ fea- 


PROCVARI 


PROCcentre 


ture available on the I 
0.1 OS BBC Micro. ■ 

Prints out the ■ 
player’s score in the I 
box at bottom of the ■ 
screen. 

Draws out screen. I 
Prints out start up I 
display - “The I 
Micro User I 
presents” etc. 

Sets up variables 
Q %, TEA%, 
CAR% and KIL%. 

Centres text on 
screen, as passed to 
procedure by a$. 


200DINLYX8 

210DIHDYX8 

220PR0CASS(0):PROCASS(2) 

230H0DE2:SX*0:SCX=0:PR0CTITLE 

240REPEAT!UNTIL6ET *32 

241 NENX-3 

250PR0CNEN 

260PR0CVARI 

270H0DE2:VDU23;8202;0; 0; 0; 
280VDU28,0,31,19,28,17,128+2,12,20, 

26 

290PR0CSCREEN 
3007473*8:TIHE S 0 

310CALLC:CALL0:REPEAT:CALLB:CALLE:P 
R0CNAN:D1RX?!RND(9)-1)=RND(2)iUNTILKI 
LXO00R (TEAX-10AND 8X*0) 

320IFTEAX*10THENPR0CB0NUS:60T0250 
330PR0CDED 

331 HENX*HENX-1:IF HENX>0 THEN PR0C 
VARI:PRQCHEH:60T0270 
340C0L0UR3:PRINTTAB(5,15)“6AME OVER 
■:F0RKK*0T04000:NEXT:60T0230 
350DEFPR0CASS(oX) 
360PX*C0DEXi[i0PToX 
370,C:LDX&73:.LI:LDAICXD1V256: STAt7 
1:LDAICXH0D256:STAt70s LDAHIX,X:STA181 
:LDAL0X,X:STA480:JSRon:DEX:BPLL1:RTS 
380.B:LDX&73:.L2:LDADIRX,X:CHP»2: BE 


fl LEFT:LOADIRX,X:CHP»1:BE6 R1SHT:JHP 
RET1:.RET:.RET1:DE X:BPLL2:RTS 
390.LEFT:LDAHIX,X;STAtBl:LDAL0X,X:S 
TA480:JSRof i :LDAXX,X:CHPI0:BE8R0FF:CL 
C:LDAXX,X:SBCtO:STAXX,X:CLC:LDA L0X,X 
:SBC»7:STA L0X,X:LDA HIZ,X:SBCI0:STA 
HIX,X:LDAICXDIV256:STA471:LDAICXH0D25 
6:STAt70:LDAHIX,X:STAtBl:LDAL0X,X: STA 
t80:JSRoniJHPRET 

400.R16HT:LDAHIX,X:STAtS1:LDAL0X,X: 
STA480:JSRoff 

410LDAXX,X:CMPI6B:BEBL0FF:CLC:LDAXX 
,X:ADC#l:STAXX,X:CLC:LDA L0X,X:ADC»8: 
STA L0X,X:LDA HIX,X:ADC*0:STA HIZ,X:L 
DAI(CX+64)DIV256:STA471:LDA#!CX+64)H0 
D256:STA470:LDAHIX,X:STAtBl:LDALOX,X: 
STAtSO:JSRon:JHPRET:.R0FF:LDAil:STA D 
IRX,X:JNP RET 

420.L0FF:LDA«2:STA DIRX,X:JNP RET 
430. on:LDY»31:.L3:LDA(t70),Y:STA <t8 
0),Y:DEY:BPL L3:RTS:.oH:LDYI31: .L4:L 
OAiO:STA(t80),Y:DEY:BPL L4:RTS 
440.D:LDX473:.L5:LDA*(CX+32)DIV256: 
STA471:LDAI(CX+32)N0D256:STA470:LDAHY 
X,X: STAtBl:LDALYX,X:STA180:JSRon:DEX: 


Micro User Games Special 37 



From Page 37 

BPLL5:RTS 

450.EiLDX473i.L6 

460LDA DY%,XsCMPI2fBE8 UP:JHP DOWN: 

• RET3 

470LDAI (CX+32) DIV256: STA471 i LDAKCX 
+32 JH0D256:STA470:LDAHYX,XiSTA481iLDA 
LYX,X:ST A4B0:JSRon;DEX:BPLL6: RTS 
480.UP;LDAYX,X:CMPIO;8EB CliCLCiLDA 
LYX,X:SBCI47F:STA476:LDAHYX,X:SBC42:S 
TA477:LDY*31i.C2:LDA!476),Y:CHPtO:BNE 
Cl:DEY:BPLC2:CLC:LDAYX,XiSBCIO:STAYX 
,X sLDAHYX,X:STA481:LDALYX,X:STA480:JS 
RoffiCLCs LDAt76iSTALYX,XiLDAfc77s STAHY 
X,X:JMP RET3i.Cl 
490LDAI1sSTA DYX,XsJHP RET3 
500.DOWN:LDAYX,XiCMP427:BE8 DIO:CLC 
i LDALYX, X: ADCI480: ST A476: LDAHYX, X: ADC 
»2iSTA477iLDY#31i.D2:LDA(476),YiCHPIO 
iBNE DiiDEY:BPLD2:CLC:LDAYX,X:ADCI1:S 
TAYX,X sLDAHYX,X:ST A481:LDALYX,X:ST A48 
Oi JSRoffi CLC: LDA476-.STALYX, X: LDA477: S 
TAHYX,X:JHPRET3 

510.Dl:LDA#2:STA DYX,X:JHP RET3 

520.D10:JMP Dl 

530RTS:3:ENDPROC 

540DEFPR0CMEM 

550F0RTX=0TQ8 

560X=RND(60) 

570Y=TX+15 

580A=43000+Y*640+X*8 

590XX?TX*X 

600HIX?TX=ADIV256 

610L0X?TX=AM0D256 

620D1RX?TX B RND(2) 

630Y=25iX=TX*2+1{X»X*4 
640YX?Ti=Y 

650A»43000+Y*640+X»8 
660HYX?TX=ADIV256 
670LYX?TX=AM0D256 
680DYX?TX S 1 

690MANf s CHR$18+CHRI0+CHR$7+CHR$230+ 
CHR4B+CHR*18+CHR40+CHR44+CHR4231+CHRI 
4 

700NEXT 

710REST0RE:F0RTX*0TQ95:READCX7TX:NE 
XT:ENDPROC 
720ENDPR0C 

730DATA0,0,21,63,63,63,21,0,0,63,63 
,63,62,63,63,62,0,0,63,63,63,61,62,40 
,0,0,0,42,62,63,42,0 
740DATA85,149,1,1,1,1,0,0,1,19,63,2 
13,35,0,19,1,34,51,63,213,19,0,51,2,1 
70,106,34,34,34,34,0,0 
750DATA0,0,0,2i,6i,63,2i,0,0,21,63, 
63,63,62,61,20,0,42,63,63,61,63,63,61 
,0,0,42,63,63,63,42,0 
760DEFPR0CSCREEN 

770VDU!9,14,0;0;:C0L0UR142:VDU28,0, 
SCX,19,0,12,17,128iFQRHX=QTQSCX:DX*(3 
1-HX)*32-4:6C0L0,7:F0RJX*0TQ10:PL0T69 


|F<4 


« 0 | 


(mR 

mm 


,MD (1280) ,HtD<3ZI*n:lNEXT.HEXT 
780C0L0UR12B 

790VDU2B,0,31,19,28,17,130,12,17,12 

8,26 

800C0L0UR4:C0L0UR134 
81OPRI NTTAB(0,28)STR1NS*(60,CHRI224 
>i 

820C0LDUR128 

B30COL0UR7:PRINTTAB(7,31);"000000"; 
840F0RTX=0T09:MQVE1216,(31-TX-15)*3 
2-4:VDU5,18,0,2,225,8,18,0,3,226,4: NE 
XT 

850M0VE0,256:VDU5,18,0,3,227,18,0,2 
,8,228,18,0,1,8,229,4 
860PRDCP10,27,MAN4) 

861FQRTX*! TO NENX:PR0CP(16+TX,31,H 
AND: NEXT 
870ENDPR0C 

880DEFPRDCP(xX,yX,if):VDU5:HQVExX*6 
4,(32-yX)*32-4:PRINT;a$;s VDU4:ENDPROC 
B90DEFPR0CHAN 
900++FX15,1 

910C0L0UR7sPRINTTAB(0,31);” "1(60-1 
IMEDIV100);" "; 

920AX=INKEY(-98)-INKEY(-105) 
930PRINTTAB(QX,27);* 

940IFFNPEEK(BX,26)< >32THENKILX=1 
950IFAX*-1AND8X< >0THEN8X=QX-1: IFFNP 
EEK(BX,27)<>32THENKILX=1 
960IFAX=1ANDBX< >19THENQX=QX+1:IFFNP 
EEK(BX,27K>32THENKILX*1 
970IFAXO0S0UND411,1,65,1 
980PR0CP(BX,27,MANf) 
990IFQX=19ANDCARX*0THENCARX*1:SOUND 
1,-15,160,1:TEAX=TEAX+1:PRINTTAB(19,1 
5+TEAX);" *i 

1000IFBX*OANDCARX s 1THENCARX=0:SOUND1 
,-15,35,1:SX=SX+10:PRQCSCORE 
10101FTIME >6000THENKILX-1 
1020ENDPR0C 
1030DEFFNPEEK(xX,yX) 


1040LQCALAX,CX 
1050VDU31,xX,yX 
1060AX=135 
1070GX=USR(4FFF4) 

1080CX a CXAND4FFFF 

1090CX=CXDIV4100 

1100=CX 

111ODEFPROCVARI:BX»0:TEAX=0:CARX=0:K 
ILX*0:ENDPROC 

1120DEFPR0CSC0RE:C0LQUR7:PRINTTAB(7, 
31)|STRIN64(6-LEN(STR$(SX)),"O");SX;: 
ENDPROC 

1130DEFPROCDED;S0UND3,3,119,45:FORKK 
-0T0100:CALLS:CALLE:C0L0UR1:PRINTTAB( 
QX,27);CHRI232:FQRJJ*0T020:NEXT:NEXT: 
ENDPROC 

1140DEFPR0CB0NUS:TX=60-TIMEDIV100:CO 
L0UR3:PRINTTAB(3,15)"TIME BONUS="|TX* 
10*(SCX+1):SCX=SCX+1:IFSCX=15SCX=14 
1150SX*SX+TX*SCX:PRQCSCORE:FORKK=OTD 
4000:NEXT:ENDPROC 
1160DEFPR0CTITLE 
1170VDU23;8202;0;0; 0; 

1180PRINT" 

1190C0L0UR5 

1200PR0Ccentre(“The Micro User") 
1210PRINT'' 

1220C0L0UR1 

1230PR0Ccentre("presents") 

1240PRINT. 

1250C0L0UR11 

1260PR0Ccentre("BILL BOUNCES BACK!") 
1270PRINT'':C0L0UR1 
1280PR0Ccentre("by") 

1290PRINT''sCOLOURlO 
l300PR0Ccentre("Si*on Phipps") 
1310C0LQUR15:PRINTTAB10,30)|:PROCcen 
treC"PRESS SPACE TO PLAY") 

1320ENDPRQC 

1330DEFPR0Ccent r e(aD;PRINTTAB(10-LE 
N(aD/2)f at: ENDPROC 
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Bsstsfeass tN*i*8e*tion 


Play the most exciting ; 
challenging Olympic 
simulation of them all! 


r *yM?\* 


MICRO OLYMPICS is riding high in the charts —and no 
wonder. You are challenged to beat the world record in 11 
realistic track and field events, with the packed stadium 
cheering you on to victory - or defeat! Just like the real thing, 
you'll want to keep on improving your sporting skill until you're 
up there among the greats! 


Turn your home micro into 
a true office workhorse! 

MINI OFFICE is the most incredibly priced introduction to 
business computing ever offered. The package contains four 
full-scale programs - word processor, database manager, 
spreadsheet and graphics. They include advanced features 
not yet available on programs costing many times as 
much. Plus a concise 32-page how-to-do-it booklet. 


Let your children embark on a 
magical micro adventure! 

THE MAGIC SWORD breaks new ground in programming for 
the young - a complete adventure on cassette accompanied by 
a 48-page full colour storybook. Stunning sound and colourful 
graphics bring a completely new dimension to the classic 
computer adventure. And there’s a very helpful animated 
compass to help you find your way around! 


Tht 

Marne 

&Sr 


Kmtin and Martin H&'h . 

'■ | * * 
tV- *.*>5 


The computer Adventure 
of Princess Poppy 
and the Frog Prince 


'IffP llBi 


i 


Please supply software as ticked in price boxes 
□ I enclose cheque made payable to 

Database Publications Ltd. for £_ 

I wish to pay by □ Access □ Visa 

No_ 

Name- 

Address _ 


-Expiry date _ 


Post to: Database Publications, Europa House, 

68 Chester Road, Hazel Grove, Stockport SK7 5NY. 



Micro 

Olympics 

Mini 

Office 

Magic 

Sword 

BBC 'B' cassette 

£5.95 □ 

£5.95 □ 


Electron cassette 

£5.95 □ 

£5.95 □ 


BBC 40 track disc 

£7.95 □ 

£7.95 □ 

£9.95 □ 

BBC 80 track disc 

£7.95 □ 

£7.95 □ 

£9.95 □ 





Spectrum cassette 

£5.95 □ 

soon 


Commodore cassette 

£5.95 □ 

Coming 

soon 



* Versions for both machine on same cassette 
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Elect ronequip 

(Authorised BBC Micro Dealer, and Econet service centre) 



BBC Cassette Software . 

Exc VAT 

Inc VAT 

BCAAFRAK 

Aardvark Frak (Caveman qame). 

7.00 

8.05 

BCAAZALA 




BCADFOOT 

Addictive Football Manager. 

5.87 

6.75 

BCAFBOUN 

A & F Software Bouncer . 

5.92 

6.80 

BCAFCHIC 

A & F Software Chuckie Egg . 

5.84 

6.72 

BCAFCYLO 

A & F Software Cylon Attack. 

5.84 

6.72 

BCAFFROG 

A & F Software Frogger . 

5.92 

6.80 

BCAFPAIN 

A & F Software Painter. 

5.92 

6.80 

BCAFSHRI 

A& F Software Shrinking Professor . 

5.92 

6.80 

BCAIADVE 

Adventure International Adventureland ... 

7.35 

8.46 

BCAIPIRA 

Adventure International Pirate Adventure . 

7.35 

8.46 

BCAISECR 

Adventure International Secret Mission ... 

7.35 

8.46 

BCAIVOOD 

Adventure International Voodoo Castle . ... 

7.35 

8.46 

BCAKCHIL 

ASK Children from Space (XBE16) . 

7.35 

8.46 

BCAKCRAN 

ASK Cranky (XBE17) . 

7.35 

8.46 

BCAKFACE 

ASK Facemaker(XBEIO) . 

7.35 

8.46 

BCAKHIDE 

ASK Hide & Seek (XBE11) . 

7.35 

8.46 

BCAKLETS 

ASK Let's Count (XBE12). 

7.35 

8.46 

BCAKNUMC 

ASK Number Chaser (XBE15) . 

7.35 

8.46 

BCAKNUMG 

ASK Number Gulper (XBR13) . 

5.82 

6.70 

BCAKNUMP 

ASK Number Puzzler (XBE14) . 

7.35 

8.46 

BCAKWORD 

ASK Words. Words. Words (XBE19) . 

7.35 

8.46 

BCALBUGB 

Alligata Software Bug Blaster . 

5.88 

6.76 

BCALCOSM 

Alligata Software Cosmic Asteroids . 

4.39 

5.05 

BCALDAMB 

Alligata Software Dambusters. 

5.87 

6.75 

BCALEAGL 

Alligata Software Eagle Empire . 

5.87 

6.75 

BCALFRUI 

Alligata Software Fruit Machine (B006) .. 

4.39 

5.05 

BCALUNCL 

Alligata Software Uncle Claude. 

7.00 

8.05 

BCAMALGE 

Ampalsoft Cheshire Cat Algebra 0 level .. 

5.13 

5.90 

BCAMARIT 

Ampalsoft Cheshire Cat Arithmetic 0 level 

5.13 

5.90 

BCAMCALC 

Ampalsoft Cheshire Cat Calculus 0 level .. 

5.13 

5.90 

BCAMCONS 

Ampalsoft Cheshire Cat Construction "0" . 

5.13 

5.90 

BCAMGRAP 

Ampalsoft Cheshire Cat Graphs 0 level .... 

5.13 

5.90 

BCAMTRIG 

Ampalsoft Cheshire Cat Trigonometry "0" 

5.13 

5.90 

BCAS100P 

Acornsoft 100 Programs for BBC Micro ... 

8.50 

9.78 

BCASAACT 

Acornsoft Arcade Action (SBG06) . 

8.80 

10.12 

BCASARCA 

Acornsoft Arcadians (SBG14) . 

7.35 

8.46 

BCASAVIA 

Acornsoft Aviator flight simulator SBG02 

11.05 

12.71 

BCASBUSI 

Acornsoft Business Games (SBE03) . 

7.35 

8.46 

BCASCARO 

Acornsoft Carousel.(SBG24) . 

7.35 

8.46 

BCASCAST 

Acornsoft Castle of Riddles (SBG17) . 

7.35 

8.46 

BCASCHAN 

Acornsoft Chemical Analysis (SBE12) .... 

10.20 

11.73 

BCASCHES 

Acornsoft Chess (SBG10) . 

7.35 

8.46 

BCASCHSI 

Acornsoft Chemical Simulations (SBE13) 

10.20 

11.73 

BCASCHST 

Acornsoft Chemical Structures (SBE14) .. 

10.20 

11.73 

BCASCOLL 

Acornsoft/ICL Collectors Cat. SBX05. 

7.35 

8.46 

BCASCOUN 

Acornsoft Countdown to Doom (SBG 19).. 

7.35 

8.46 

BCASCRA2 

Acornsoft Crazy Tracer (SBG26) (B). 

7.35 

8.46 

BCASCREA 

Acornsoft Creative Graphics (SBX01) . 

7.35 

8.46 

BCASDESK 

Acornsoft Desk Diary (SBB01) . 

7.35 

8.46 

BCASDRAU 

Acornsoft Draughts & Reversi (B) (SBG20) 

7.35 

8.46 

BCASDROG 

Acornsoft Drogna (SBG27) . 

7.78 

8.95 

BCASELIT 

Acornsoft Elite (SBG38) . 

12.35 

14.20 

BCASEXAM 

Acornsoft Examiner Cassette (SBE17) (B) 

7.35 

8.46 

BCASFORE 

Acornsoft Forecast (SBB02). 

8.80 

10.12 

BCASFORT 

Acornsoft Forth Cassette (SBL01) . 

12.45 

14.32 

BCASFREE 

Acornsoft Free Fall (SBG28) . 

7.35 

8.46 

BCASFREN 

Acornsoft French (Linkword) (SBX13) .... 

11.05 

12.71 

BCASGERM 

Acornsoft German (Linkword) (SBX16) ... 

11.05 

12.71 

BCASGRAO 

Acornsoft Graphics on the BBC . 

8.50 

9.78 

BCASGRAP 

Acornsoft Graphs & Charts (SBX02) . 

7.35 

8.46 

BCASHOOK 

A'soft/ICL Hooked on Numbers (SBX08) .. 

7.35 

8.46 

BCASHOPP 

Acornsoft Hopper (SBG23) . 

7.35 

8.46 

BCASITAL 

Acornsoft Italian (Linkword) (SBX14) .... 

11.05 

12.71 

BCASJARS 

Acornsoft Jars (SBE15). 

8.83 

10.16 

BCASJCBD 

Acornsoft JCB Digger (SBG09) . 

7.35 

8.46 

BCASKING 

Acornsoft Kingdom of Hamil (SBG25). 

7.35 

8.45 

BCASUSD 

Acornsoft Lisp Demo Progs SBL09 . 

7.35 

8.46 

BCASLISP 

Acornsoft Lisp Cassette (SBL02). 

12.45 

14.32 

BCASMAGI 

Acornsoft Magic Garden (B) (SBX04) . 

7.35 

8.46 

BCASMEMB 

Acornsoft/ICL M'ship Manager (SBX06) .. 

7.35 

8.46 

BCASMETE 

Acornsoft Meteors (SBG13) . 

7.35 

8.46 

BCASMETM 

Acornsoft Meteor Mission (SBG29) . 

7.78 

8.95 

BCASMICR 

Acornsoft Microtext (SBL04). 

36.85 

42.37 

BCASMISB 

Acornsoft Missile Base (SBG 18) . 

7.35 

8.46 

BCASMISS 

Acornsoft Missing Signs (SBE09). 

8.83 

10.16 

BCASMONS 

Acornsoft Monsters (SBG03). 

7.35 

8.46 

BCASNUMB 

Acornsoft Number Balance (SBE08) . 

8.83 

10.16 

BCASONET 

Acornsoft/ICL One to Nine (SBX07) . 

7.35 

8.46 

BCASPEEK 

Acornsoft Peeko-Computer Pack (SBE02) 

7.35 

8.46 

BCASPERS 

Acornsoft Personal Money M'ment SBB5 

8.80 

10.12 

BCASPHIL 

Acornsoft Philosophers Quest (SBG01) ... 

7.35 

8.46 

BCASPICT 

Acornsoft Picture Maker (SBX03). 

7.35 

8.46 

BCASPLAN 

Acornsoft Planetoid (Defender) (SBG15) .. 

7.35 

8.46 

BCASROCK 

Acornsoft Rocket Raid (SBG05) . 

7.35 

8.46 

BCASSENT 

Acornsoft Sentence Sequencing (SBE07) . 

8.83 

10.16 

BCASSINV 

Acornsoft Super Invaders (SBG16). 

7.35 

8.46 

BCASSLID 

Acornsoft Sliding block puzzles (SBG12) . 

7.35 

8.46 

BCASSNAP 

Acornsoft Snapper (SBG04) . 

7.35 

8.46 

BCASSNOO 

Acornsoft Snooker (SBG21) . 

7.35 

8.46 

BCASSPAN 

Acornsoft Spanish (Linkword) (SBX15) .. 

11.05 

12.71 

BCASSPAS 

Acornsoft S Pascal (SBL08) . 

12.45 

14.32 

BCASSPHI 

Acornsoft Sphinx Adventure (SBG07). 

7.35 

8.46 

BCASSTAR 

Acornsoft Starship Command (SBG22) ... 

7.35 

8.46 

BCASTETR 

Acornsoft Tetrapod (SBG32) . 

7.78 

8.95 

BCASTREE 

Acornsoft Tree of Knowledge (SBE04) ... 

7.35 

8.46 

BCASTURT 

Acornsoft Turtle Graphics (SBL07). 

12.45 

14.32 

BCASVIEW 

Acornsoft View Printer Driver (SBB04) ... 

7.35 

8.45 

BCASVOLC 

Acornsoft Volcano (SBG33) . 

7.78 

8.95 

BCASWORH 

Acornsoft Word Hunt (SBE05) . 
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BCASWORS 

BBC Cassette Software . 

Acornsoft Word Sequencing (SBE06) . 

Exc VAT 

8.83 

Inc VAT 

10.16 

BCBEAVM 

BES Animal Vegetable Mineral (XBE03) .. 

6.63 

7.62 

BCBEHAPL 

BES Happy Letters (XBE07) . 

6.63 

7.62 

BCBEHAPN 

BES Happy Numbers (XBE04) . 

6.63 

7.62 

BCBEMAPR 

BES Map Rally (XBE08) . 

6.63 

7.62 

BCBETIM1 

BESTimemfln0ne(XBE05) . 

6.63 

7.62 

BCBETIM2 

BESTimemanTwo(XBE06) . 

6.63 

7.62 

BCBEWORH 

BES Wordhang (XBE02) . 

6.63 

7.62 

BCBEWORW 

BES World-Wise (XBE01) . 

6.63 

7.62 

BCBSBEYO 

BBCsoft Beyond Basic Cassette (B) . 

8.50 

9.78 

BCBSCANY 

BBCsoft Canyon (B) . 

7.39 

8.50 

BCBSDRAW 




BCBSDRWH 

BBCsoft Dr Who: The First Adventure (B) . 

7.39 

8.50 

BCBSEARL 

BBCsoft Early Learning. 

7.40 

8.50 

BCBSFUNG 

BBCsoft Fun Games . 

7.40 

8.50 

BCBSGAMS 

BBCsoft Games of Strategy . 

7.40 

8.50 

BCBSHOMF 

BBCsoft Home Finance. 

7.40 

8.50 

BCBSMAKM 

Making the most of your Micro (Inc book) 

9.57 

11.01 

BCBSMOTO 

BBCsoft Motorists' Log . 

7.40 

8.50 

BCBSPAIN 

BBCsoft Painting . 

7.40 

8.50 

BCBSPR01 

BBCsoft Programs Vol 1 . 

7.40 

8.50 

BCBSPR02 

BBCsoft Programs Vol 2 . 

7.40 

8.50 

BCBSRECO 

BBCsoft Record Keeper (B). 

10.20 

11.73 

BCBSTAXC 

BBCsoft Taxcalc (B). 

8.16 

9.38 

BCBSTOOL 

BBCsoft Tool Box(B). 

15.52 

17.85 

BCBSVUTY 

BBCsoft VU Type (Typing Tutor) (B) . 

11.90 

13.69 

BCBSWHIT 

BBCsoft White Knight Mark Eleven (B) .... 

8.50 

9.78 

BCBUTWIN 

Bug-Byte Twin Kingdom Valley . 

7.02 

8.07 

BCCCANDR 

Computer Concepts Android Attack . 

6.61 

7.60 

BCCCASTE 

Computer Concepts Asteroid belt . 

5.87 

6.75 

BCCCCHES 

Computer Concepts Chess . 

6.61 

7.60 

BCCCLOGO 

Computer Concepts Logo II . 

8.50 

9.78 

BCCCSNAK 

Computer Concepts Snake . 

5.87 

6.75 

BCCCSPAC 

Computer Concepts Spacehawks . 

5.87 

6.75 

BCCCSWAR 

Computer Concepts Swarm . 

6.61 

7.60 

BCDS747 

Doctor Soft 747 . 

5.87 

6.75 

BCGEBEEB 

Gemini Beebcalc (Spreadsheet). 

14.75 

16.96 

BCGEBEEP 

Gemini Beebplot (Graph Plot) . 

14.75 

16.96 

BCGECATE 


7.35 

8.46 

BCGGFAIR 

Griffin & George Fairshare . 

7.35 

8.46 

BCGGGETS 

Griffin & George Getset. 

7.35 

8.46 

BCGGNUMB 

Griffin & George Numberfun . 

7.35 

8.46 

BCGGTABL 

Griffin & George Tablesums. 

7.35 

8.46 

BCGGWORG 

Griffin & George Wordgames. 

7.35 

8.46 

BCGGWORS 

Griffin & George Wordspell. 

7.35 

8.46 

BCGHTALP 

Good Houseke'g Mr T's Alphabet . 

9.57 

11.01 

BCGHTMEA 

Good Houseke'g Mr T's Measuring Games 

9.57 

11.01 

BCGHTMON 

Good Houseke'g Mr T's Money Box . 

9.57 

11.01 

BCGHTNUM 

Good Houseke'g Mr T's Number Games ... 

9.57 

11.01 

BCGHTSHA 

Good Houseke'g Mr T's Shape Game . 

9.57 

11.01 

BCGHTTEL 

Good Houseke'g Mr T Tells the Time. 

9.57 

11.01 

BCHOADVB 

Honeyfold Advanced Basic course . 

12.10 

12.71 

BCHOBEGA 

Honeyfold Beginners Assembly Language . 

12.10 

12.71 

BCHOBEGB 

Honeyfold Beginners Basic course. 

12.10 

12.71 

BCIBCRIM 

Ivan Berg Crime & Detection Quiz (XBX02) 

9.35 

10.75 

BCIBDATI 

Ivan Berg Dating Game (XBX08) . 

9.35 

10.75 

BCIBHIST 

Ivan Berg History Quiz (XBX04) . 

9.35 

10.75 

BCIBIDO 

Ivan Berg "1 Do' (XBX07). 

9.35 

10.75 

BCIBMUSI 

Ivan Berg Music Quiz (XBX03) . 

9.35 

10.75 

BCIBROYA 

Ivan Berg Royalty Quiz (XBX06) . 

9.35 

10.75 

BCIBSCIE 

Ivan Berg Science Fiction Quiz (XBX05) .. 

9.35 

10.75 

BCIBTHER 

Ivan Berg Theatre Quiz (XBX01). 

9.35 

10.75 

BCIJHYPE 

UK Hyperdrive for BBC (13) . 

4.80 

5.52 

BCIJINVA 

UK Invaders for BBC (9) . 

5.54 

6.37 

BCIJSTRA 

UK Stratobomber for BBC (14) . 

5.54 

6.37 

BCIJSUPE 


3.32 


BCJOYSTI 

Joystick Utility program for BBC. 

5.06 

5.82 

BCKAGALA 

Kansas Galactic Firebird . 

7.01 

8.06 

BCKOFREA 

Kosmos Software French Mistress A . 

7.35 

8.46 

BCKOFREB 

Kosmos Software French Mistress B . 

7.35 

8.46 

BCKOGERA 

Kosmos Software German Master A. 

7.35 

8.46 

BCKOGERB 

Kosmos Software German Master B. 

7.35 

8.46 

BCKOSPAA 

Kosmos Software Spanish Tutor A . 

7.35 

8.46 

BCKOSPAB 

Kosmos Software Spanish Tutor B . 

7.35 

8.46 

BCL9C0L0 

Level 9 Colossal Adventure (B) . 

7.32 

8.42 

BCL9DUNG 

Level 9 Dungeons(B) . 

7.32 

8.42 

BCL9L0RD 

Level 9 Lords of Time (b). 

7.32 

8.42 

BCL9SN0W 

Level 9 Snowball (B) . 

7.32 

8.42 

BCMHHOBB 

Melbourne House Hobbit. 

11.05 

12.71 

BCMSQUIC 

Mirrorsoft Quick Thinking (B) . 

5.13 

5.90 

BCOCMRWI 

Ocean Mr. Wimpy . 

5.10 

5.87 

BCPAFORT 

Pace Software Fortress . 

6.61 

7.60 

BCPPADVE 

Program Power Adventure (B) . 

5.87 

6.75 

BCPPALID 

Program Power Alien Destroyers (Invader) 

5.91 

6.79 

BCPPALIE 

Program Power Alien Swirl . 

5.13 

5.90 

BCPPASTE 

Program Power Asteroid Storm (B). 

5.87 

6.75 

BCPPASTR 

Program Power Astro Navigator . 

4.21 

4.84 

BCPPBAND 

Program Power Bandits at 3 o’clock. 

5.14 

5.91 

BCPPBARR 

Program Power Barrage for BBC. 

5.13 

5.90 

BCPPBEEB 

Program Power Beeb-Tote (B) . 

4.40 

5.06 

BCPPBUMB 

Program Power Bumble Bee (B) . 

5.87 

6.75 

BCPPCAVA 

Program Power Caveman Adventure . 

5.06 

5.82 

BCPPCHEM 

Program Power Chemistry . 

5.13 

5.90 

BCPPCHES 

Program Power Chess. 

5.87 

6.75 

BCPPCOSM 

Program Power Cosmic Combat (B) . 

5.14 

5.91 

BCPPCOWB 

Program Power Cowboy Shoot-out . 

5.06 

5.82 

BCPPCROA 

Program Power Croaker. 

5.87 

6.75 

BCPPCYBE 

Program Power Cybertron Mission (B) .... 

5.87 

6.75 

BCPPDANG 

Program Power Danger! UXB . 

5.87 

6.75 

BCPPDEMD 

Program Power Demon Decorator (Painter) 

5.06 

5.82 


BUY 3 CASSETTES 


GET 1 FREE 



BBC Cassette Software . 

Exc VAT 

Inc VAT 

BCPPDIS 

Program Power BBC Disassembler . 

5.06 

5.82 

BCPPDUNE 

Program Power Dune Rider . 

6.22 

7.15 

BCPPELDO 

Program Power Eldorado Gold (Adventure) 

5.06 

5.82 

BCPPESCA 

Program Power Escape from M'base Alpha 

5.87 

6.75 

BCPPFFAC 

Program Power Felix in the Factory. 

5.87 

6.75 

BCPPFFRU 

Program Power Felix & the Fruit Monsters 

5.87 

6.75 

BCPPGHOU 

Program Power Ghouls. 

5.87 

6.75 

BCPPHELL 

Program Power Hell Driver (B). 

5.87 

6.75 

BCPPINTE 

Program Power Intergalactic Trader (B) ... 

6.61 

7.60 

BCPPJETP 

Program Power Jet Power Jack. 

5.87 

6.75 

BCPPKILL 

Program Power Killer Gorilla. 

5.87 

6.75 

BCPPLABC 

Program Power Labyrinths of la Coshe .... 

5.87 

6.75 

BCPPLASE 

Program Power Laser Command . 

5.87 

6.75 

BCPPMART 

Program Power Martian Attack (B). 

5.87 

6.75 

BCPPMINE 

Program Power Mine (B). 

5.87 

6.75 

BCPPMOON 

Program Power Moon Raider . 

5.87 

6.75 

BCPPNEME 

Program Power Nemesis (B) . 

5.87 

6.75 

BCPPPHYS 

Program Power Physics . 

5.06 

5.82 

BCPPPOKE 

Program Power Poker Dice (B). 

4.40 

5.06 

BCPPPOSI 

Program Power Positron (B) . 

5.14 

5.91 

BCPPREV2 

Program Power Reversi (32K) . 

4.21 

4.84 

BCPPROUL 

Program Power Roulette for BBC . 

4.21 

4.84 

BCPPSEEK 

Program Power Seek . 

5.06 

5.82 

BCPPSPAC 

Program Power Space Jailer (B) . 

5.14 

5.91 

BCPPSTOC 

Program Power Stock Car (B). 

6.56 

7.45 

BCPPSWOO 

Program Power Swoop. 

5.87 

6.75 

BCPPTIMT 

Program Power Timetrek (Startrek Plus) .. 

5.87 

6.75 

BCPPWALL 

Program Power Wall (B) . 

4.40 

5.06 

BCPPWHER 

Program Power Where (B) . 

5.14 

5.91 

BCPPWORL 

Program Power World Geography (B) . 

5.14 

5.91 

BCPPZARM 

Program Power Zarm (B) . 

5.87 

6.75 

BCPSSALO 

Psion Saloon Sally . 

4.39 

5.05 

BSQSBEEB 

Quicksilva BeebArt(B) . 

11.05 

12.71 

BCQSMUSI 

Quicksilva Music Processor (B). 

11.05 

12.71 

BCRHGALA 

RH Software Galactic Wipeout (RHS001C) 

6.61 

7.60 

BCRHSKIS 

RH Software Ski Slalom (RHS002C). 

6.61 

7.60 

BCSHGBLT 

Simon WHesselGB Ltd. 

5.13 

5.90 

BCSHINHE 

Simon W Hessel Interitance . 

4.39 

5.05 

BCSHTRAV 

Simon W Hessel Travel Game. 

4.39 

5.05 

BCSI3DB0 

Software Invasion 3D Bomb Alley . 

5.87 

6.75 

BCSIATTA 

Software Invasion Attack on Alphacenturi 

5.87 

6.75 

BCSIEAGL 

Software Invasion Eagles Wing (B). 

5.87 

6.75 

BCSIGUNS 

Software Invasion Gunsmoke. 

5.87 

6.75 

BCSISPOO 

Software Invasion Spooks & Spiders (B) .. 

5.87 

6.75 

BCSIVORT 

Software Invasion Vortex . 

5.87 

6.75 

BCSMDIS 

Simonsoft Disassembler . 

5.87 

6.75 

BCSS2002 

Superior Software 2002 . 

5.87 

6.75 

BCSSALID 

Superior Software Alien Dropout . 

5.87 

6.75 

BCSSBATT 

Superior Software Battle Tank . 

5.87 

6.75 

BCSSCENT 

Superior Software Centipede . 

5.87 

6.75 

BCSSCOLD 

Superior Software Colditz Adventure . 

5.53 

6.35 

BCSSCRAZ 

Superior Software Crazy Painter. 

5.87 

6.75 

BCSSFAIR 

Superior Software Fairground . 

5.87 

6.75 

BCSSFROG 

Superior Software Frogger. 

5.87 

6.75 

BCSSFRUI 

Superior Software Fruit Machine. 

5.87 

6.75 

BCSSGALA 

Superior Software Galaxians . 

5.87 

6.75 

BCSSHUNC 

Superior Software Hunchback . 

5.87 

6.75 

BCSSINVA 

Superior Software Invaders. 

5.87 

6.75 

BCSSOVER 

Superior Software Overdrive. 

5.87 

6.75 

BCSSPONT 

Superior Software Pontoon . 

5.13 

5.90 

BCSSQBER 

Superior Software QBert . 

5.87 

6.75 

BCSSROAD 

Superior Software Road Runner . 

5.B7 

6.75 

BCSSSPAF 

Superior Software Space Fighter . 

5.87 

6.75 

BCSUJUNW 

Sulis Software Junior Wordsplits . 

7.35 

8.46 

BCSUJUST 

Sulis Software Just a Mot . 

7.35 

846 

BCSUOPEN 

Sulis Software Open Sesame . 

7.35 

8.46 

BCSUSTAW 

Sulis Software Starter Wordsplits. 

7.35 

8.46 

BCSUTENF 

Sulis Software Tense French . 

7.35 

8.46 

BCSUTIME 

Sulis Software Time Traveller . 

7.35 

8.46 

BCSUWORD 

Sulis Software Wordpower . 

7.35 

8.46 

BCVIDARE 

Visions Daredevil Dennis. 

7.00 

8.05 

BCVIDEMO 


7.00 

8.05 

BCVIPENG 

Visions Pengi . 

7.00 

8.05 

BCVISNOO 

Visions Snooker . 

6.61 

7.60 

BCVMDELT 

Voltmace Delta Driver Cassette. 

4.39 

5.05 


Prices subject to variation without 
prior notification 

TRADE ENQUIRIES WELCOME 
Access & Barclaycard Accepted 
Large Stocks - 24 Hour Despatch 
Carriage 46p 


Electronequip 
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MARTIN HOLLIS 


SPLAT is a simple cat and mouse maze 
game for any age. 

You are the star in the centre of the 
screen being chased by a monster - ‘O’ 
— who starts off in the top left hand 
corner. You have to eat all the dots, 
worth one point each, without being 
caught. 

Every 100 dots you eat gives you four 
$ signs to eat, each worth 10 points. 
When your score reaches 500 another 
‘O’ — which has been waiting in the 
bottom left hand corner - springs to life. 

These monster ‘O’s do not eat the 
dots, but they do eat the $ signs - and 
you! If the two monsters hit each other, 
one is transported to a random position 
in the maze. 

You have three lives to clear the 
screen of dots. When you lose a life you 
re-start from where you died. 

At the beginning of the game you are 
asked to enter your name and to choose 



a level. The higher the level, the more 
holes there are in the walls of the maze. 

At the bottom of the screen your 
name, score, lives left and the hi-score 
are displayed. 

If you qualify, your name will be 
entered automatically in the hi-score 
table displayed at the end of the game. 

To change the player’s name, press 
Escape which returns you to the 
beginning of the game without losing the 


hi-score table. 


___-^ sC ote. 

p»« s *rdots '"*® 5 

oROCSPy'Ss „ <**■»• -- 


’’ B „rSCOP® S 

ssfe 

\ 




\ xR' 


\1U' S 


2 down 


Keys 

< 

* > 


c rt\onste ts ' 
n0^ u ° . ,r.. l iUV- 


W sCOt£ ' 


, L°/° 


on sCTee l screed- 


LWes- dots rem- 

L°/° , >sum^ eT fot easY a 

r 1 *' l ‘ W ' _ scow- „i star. 

S* Coo^'”f‘ am cs. 
%%, ^ /0 T b \ e of 

l VfSf9) 


terrvafnfnS cbr s on 


10 REH ********************** N 
20 REN * * 

30 REH * SPLAT! A maze gate * 

40 REN * * 

50 REH * By Hartin Hollis * 

60 REH * Design - J. Barton * 

70 REH * (c)1984 Hicro user * 

80 REH * * 

90 REH ********************** 

100 QNERRQR PROCHORE:G0T0200 
110 PR0CTITLE 

120 PRINT'’* SPC(12);* By Hartin Holl 
is"''SPC(9)j"Designed by John Barton* 
" *' 'SPC(14)|"Press SPACE* 

130 REPEAT s 6*6ET s UNTILB a 32 
140 REPEAT 
150 PR0CTITLE 

160 INPUT* Hhat is your naie*,NAHE$ 

170 UNTILLEN(NAHE4X21 

180 DIHPX(39,22),HX<9),H$<9) 

190 F0RAX=0T09:HX(AX) a 50+AX*50:H*(A 
X)*CHR»(129+AXH0D4)+*Hicro User.*:NEXT 
200 REPEAT 

210 H0DE7:VDU23;8202;0;0; 0 
220 PR0CINST 
230 REPEAT 
240 PR0CTITLE 

250 INPUT* Enter level 1-8 (1 is ea 
sy, 8 is hard)*'* then press RETURN*' 
SPCdlHX 

260 UNTILHX>0ANDHX<9:HX=(HX-11*5 
270 F0RBX=0T039 s FQRAX=0T021STEP2 
280 PX(BX,AX)*1:PX(BX,AX+1)=2:NEXTs 
NEXT 

290 F0RAX*1T038:PX(AX,22)*1:NEXT 
300 F0RAX*0T022:PX10,AX)=1:PX(39,AX 
)=lsNEXT 

310 FQRAX a 2T020STEP2:F0RBX=0T0RND(H 
X)+2iP2(RND(37)+1,A%) a 2s NEXTsNEXT 
320 HAX=1Q0 
330 LEFTX a 0 
340 CLS 

350 F0RBX=0T022:F0RAX*0T039 
360 IFPX(AX,BX)®0 PRINT* *j ELSEIFP 
X(AX,BX)=1 PRINTCHRf(255)j ELSEIFPXfA 
X,BX)=2 PRINT*.";;LEFTX=LEFTX+1 
370 NEXTsNEXT 

380 XX=20:YX*llsCX=1:DX*1:EX*1:FX=2 
1:SX=0:LX=3:PX(CX,DX)=0:PX(EX,FX)=0:L 
EFTX=LEFTX-2:REPEAT 
390 YX-11 
400 CX-1 
410 EX a l 
420 FX S 21 
430 SX=0 
440 LX a 3 
450 PX(CX,DX) a 0 
460 PX(EX,FX)=0 
470 LEFTX a LEFTX-2 
480 REPEAT 
490 FORAX»0T01 
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500 PRINTTAB(XX,YX> |" ■ 

510 IFPX(XX,YX)*2 S0UND1,-15,100,1: 
SX=SX+1!PX(XX,YX >=0s LEFT%*LEFTX-1 
520 IFPX(XX,YX)=3 SX=SX+10:F0RBX=0T 
0255STEP2:SOUND1, ■-15,BX,0 s NEXT:PX(XX, 
YX) =0 

530 IFINKEY(-66)ANDPX(XX,YX-1K>1 Y 
X=YX-1ELSEIFINKEY(-98)ANDPX(XX,YX+1)< 
>1 YX*Y%+1 

540 IFINKEY(-103)ANDPX(XX-1,YX)<>1 
XX=XX-1ELSEIFINKEY(-104)ANDPX(XX+1,YX 
)<>1 XX=XX+1 
550 F0RA=0T0100:NEXT 
560 HX a 0 

570 PRINTTAB(XX,YX);"»" 

580 NEXT 

590 IFPX(CX,DX!=2 PRINTTAB(CX,DX);• 
." ELSE PRINTTAB(CX,DX);* ":PX(CX,DX) 
a 0 

600 IFDX< YXANDPX(CX,DX+l)< >1 DX=DX+ 
1: MX=-1 

610 IFDX >YXANDPX(CX,DX-1K >1 DX=DX- 
1 iHX-1 

620 IFCDXXANDPX (CX-1 ,DX) < >1 ANDNX s O 
CX=CX-1 ELSEIFCX< XXANDPX(CX+1,DX)< >1 
ANDMX=0 CX=CX+1 
630 IFSX<501 60T0670 
640 HX s OiIFPX(EX,FX)*2 PRINTTABtEX, 
FX);".“ ELSE PRINTTAB(EX,FX);* *sPX(C 
X,DX)=0 

650 IFFX< YXANDPX (EX, FX+DOl FX=FX+ 
1! HX—1 ELSE1FFX>YXANDPX(EX,FX-1) < >1 
FX a FX-l:MX a -l 

660 1FEX>XXANDPX (EX-1 ,FX)< MANDNOTH 
X EX=EX-1 ELSEIFEX<XXANDPX(EX+1,FX)<> 
1ANDNQTHX EX=E%+1 
670 IFLEFTX<8 PRQCSPRINKLE 
680 IFCX=EXANDDX S FX REPEAT:EX=RND(3 
8 )+1s FX=RND(20)+1:UNTILPX(EX,FX> < >1 
690 PRINTTAB(CX,DX);"0";TAB(EX,FX); 
"0" 

700 PRINTTAB(0,23);"SCORE**|SX;TAB( 
12,23>;"LIVES a ";LX;TABI23,23);*HIGH-" 
;HX(8) ;TAB(13,24) j "Player-*;NAME*; 

710 IFSX>MAX NAX*NAX+100:FQRBX=0TQ3 
iPROCDOLLAR:NEXT 

720 IFCX=XXANDDX=YXOREX=XXANDFX=YX 
LX=LX-lsF0RAX*0T080:PRINTTAB<XX,YX);C 
HR$(RND(10)+64):S0UND1,-15,RND(255),0 
:NEXT:SOUNDO,-15,4,20:CX s l:DX s !:EX s l: 
FX a 21:XX=10:YX=11!PROCSCREEN 
730 FORA*OTO10O:NEXT:UNTILLX*0 
740 PR0CSCORES:GOTO2O0 
750 DEFPROCSCREEN 
760 CLS 
770 LEFTX=0 

780 FQRBX a 0T022sF0RAX=0T039 
790 IFPX(AX,BX) a O VDU32: ELSEIFPX(A 
X, BX)=1 PRINTCHRK255) ; 


800 IFPX(AX,BX)=2 PRINT"LEFTX*L 
EFTX+1 

810 IFPX(AX,BX)=3 PRINT"*"; 

820 NEXT:NEXT:ENDPROC 
830 DEFPROCDOLLAR 
840 IX=RNDI3B! 

850 JX=RND(21) 

860 PRINTTAB(IX,JX>;"$" 

870 IFPX(IX,JX)*2 LEFTX=LEFTX-1 
880 PX(IX,JX)=3 

890 F0RKX s 0T0255:S0UND1,-15,KX,0:NE 
XT 

900 ENDPROC 
910 DEFPROCSPRINKLE 
920 HX=HX+1 
930 PROCTITLE 

940 PRINT" Nell done! You deserve a 

sprinkling of.SPCI13);CHR*i29;CH 

R*136‘D0TS!!! !*" 

950 LEFTX=0 

960 F0RBX=0T039:F0RAX*0T021STEP2 
970 PX(BX,AX)=1 
980 PX(BX,AX+1)=2 
990 NEXTiNEXT 
1000 F0RAX=1T038 
1010 PX(AX,22)=1 
1020 NEXT 
1030 FQRAX=0T022 
1040 PX(0,AX)*1 
1050 PX(39,AX)=1 
1060 NEXT 

1070 F0RAX=2T020STEP2:F0RBX*0T0HX+2 

1080 PX(RND(37)+1,AX)=2 

1090 NEXT:NEXT 

1100 PROCSCREEN 

1110 XX=20:YX=11 

1120 CX=1:DX=1 

1130 EX*1:FX S 21 

1140 ENDPROC 

1150 DEFPROCSCORES:IFSX<=HX(0) 80T01 
290 

1160 *FX15 
1170 PROCTITLE 
1180 AX a O 
1190 REPEAT 
1200 AX*AX+1 

1210 UNTILSX<HX(AX)0RAX=9 

1220 FQRBX a 0T0AX-2 

1230 HX(BX)=HX(BX+1):H*(BX)*H*(BX+1) 

1240 NEXT 

1250 HX(AX-1)=SX 

1260 PRINT" Congratulations *;NAHE*' 
’ You are in the high score table" 
1270 H$(AX-1)*CHRS136+NANE* 

1280 PROCKEY 
1290 PROCTITLE 

1300 PRINTSPC(10);CHR$(134)|" High 
Score Table"' 

1310 F0RAX a 8TQ0STEP-l 
1320 PR1NTSPC(8);HI(AX);STRING*(25-( 
LEN(H*(AX))+LEN(STR*(HX(AX)))),".");H 
X(AX)' 


1330 1FLEFT*(H$(AX),1>®CHR*136 H*(AX 
)=CHR*(128+RND(4))+HID*(H* <AX),2) 

1340 NEXT 
1350 PROCKEY 
1360 ENDPROC 

1370 DEFPROCNOREsPROCTITLE:PRINT" An 
y «ore Y/N":REPEAT: 6 * a GET*:UNTILB* a "Y 
"QRG* a "N":IF 6 * a "N* PROCTITLE:END 
1380 PRINT" Nhat is your naee?*:INPU 
TSPCIDNAHE*: ENDPROC 
1390 DEFPROCTITLE 
1400 CLS 

1410 PRINTCHR*(130);CHR$(157);CHR*!1 
32);CHR*(141);* S P L A 

T !"';CHR*(130);CHR*(157);CHR*(132); 
CHR*(141); N SPLAT! 

R » 

1420 ENDPROC 
1430 DEFPROCKEY 

1440 PRINT'TAB(14)|"Press SPACE"; 

1450 »FX15 

1460 REPEAT:G=GET:UNTIL6 a 32 
1470 ENDPROC 
1480 DEFPROCINST 
1490 CLS 
1500 PROCTITLE 

1510 PRINT" Instructions Y/N*'" "; 
1520 REPEAT:B*= 6 ET$:UNTILB$=*Y“0R6*= 

"N" 

1530 IFS* a "N" ENDPROC 
1540 PROCTITLE 

1550 PRINT"You start off as the "*«" 

* in the aiddle"'"of the screen,You a 
ust eat up all of thelittle dots as y 
ou get 1 added to your"'"score for ev 
ery dot eaten. Every tiae"'"your scor 
e reaches 100, 200, 300 etc." 

1560 PRINT'you get four '*' signs ah 
ich are each"'"North 10 points ahsn e 
aten. If you eat*'*up all the dots yo 
u get tore dots and a nea *aze." 

1570 PRINT'"There is one '0' chasing 
you rouRd the"'"»aze, and another re 
ady to be activated alien your score r 
eaches 500. If the tao 'Os' seat one 
of the* is sent to anotherpart of the 
eaze," 

1580 PRINT'"You also get a personali 
sed High Score"'"Table for nine score 
s, If you qualify"'"your na«e aill be 
entered automatically." 

1590 PROCKEY 
1600 CLS 
1610 PROCTITLE 

1620 PR I NT " T AB (7); CHR* (136!; CHR* (13 
4);"Keys for the GAHE.""TAB(11I;CHR* 
(131);*A a Up."" TAB(11);CHR*(132 
);"Z a Doen.*"TAB!il);CHR*(133); 
*< » Left. ""TAB(11);CHR*( 130) ;"> 

a Right.""' 

1630 PROCKEY 
1640 ENDPROC 
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By 

D.H. IBBOTSON 


THE fairground has come to your 
micro in the form of Happy Harry’s 
shooting gallery. All you have to do is 
hit the targets with the darts in order to 
win one of Harry’s fantastic prizes. (If 
the prizes are not quite up to your 
expectations then simply change the 
data on line 160.) 

Hitting a number will increase your 
darts. Hitting a face will make all the 
targets retreat. Hitting anything else will 
increase your score. 

Clear all the targets and a new set will 
appear in new colours, sometimes 
making the targets or gun partly 
invisible. So try to hit the numbers first, 
followed by everything except the faces. 
Shoot the faces last of all in order to 
progress to the next card. 

Instructions are contained in the 
program. Only the space bar is strictly 
necessary in order to play the game. I 


ARRAYS 

A$( ) Targets. 

C$( ) Colours in the form of strings. 

D$(l) Dart / D$(0) delete dart. 

prize$( ) All the prizes. 

R%( ) Temporary stores for random 
numbers. 

S%( ) Scores for the various targets. 
s%( ) Old scores for score ladder. 
s$( ) Old names for score ladder. 

VARIABLES 

A% Permanently set 165. 
a% Permanently set to OSBYTE 
address &FFF4. 

AS Removes bottom line of targets 
when they retreat. 

B% X axis position of the gun. 

C% Master counter. 

D% Darts flag 1 if fired, 0 if not fired. 
G$ The gun. 

H% Height of targets. 

1% Jump out of loop flag. 

J% Counts hits. 

L% Level or card. 

M% Time value for each note. 

N% Pitch value for each note. 

0% Removes bottom line of targets if 
set flag. 

S% Total shots remaining. 
s% Old total shots remaining. 

T% Total scored. 
t% Old total scored. 

X% Darts X axis. 

Y% Darts Y axis. 


hope you enjoy the Fairground organ 
music. 

The data on line 460 may be changed 
if the score, or the number of extra darts, 
is not to your liking. 

The formula is simple, 0 to 9 is added 
to the score, 10 or greater will be added 
to the darts, and —2 (use —2 only) will 
force a retreat. 

Likewise characters 224 to 232 can 
be redefined if you dislike the targets. 


**♦* Fair 

Play 

Score :2“ 
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PROCEDURES 

PROCmulti_colour Displays Mode 6 (normally a single colour mode) in 
multi-colour by using *FX19 and then rapidly 
changing the palette in order to display bands of 
colour. 

PROCsetup_characters Sets the string array A$( ) to random characters or 
targets. 

PROCcheck (A%) Finds out which target (A%) has been hit and then 
pays out accordingly. 

PROCchange Selects fresh colour from the palette. 

FNp (AS) PEEKs the screen more or less as described on page 

432 of the User Guide. If a hit is detected removes it 
from the appropriate string, then calls PROC¬ 
change. 

FNs Gets the name of the player for use in 

PROC score_ladder. 

FNT Resets data pointer to line 1180 if the end of the 

music, as indicated by M%=0, has been reached. 


PROCcheck (A%) 

PROCchange 
FNp (AS) 


18 REM **** Fair play *#** 

28 REM tci The Micro User 
38 REM Proqra# by D.H. Ibbotson, 

48 REM Music bv T.Hawes. 

50 ENVELOPE!,4,98,-15,-15,18,28,20 
,126,8,0,-126,126,126 

68 ENVELOPEZ,4.-1,1,0,28,28,8,126, 

0 . 0 ,- 126 , 126,126 

70 ENVELOPES,3,0,0,0,0,8,0,121,-10 
,-5,-2,-128,-128 

88 ENVEL0PE4,8,8,0,8,8,8,8,126,-4, 
-3,-3,126,100 

90 ENVELOPES,10,1,-2,1,10.18,10,78 
,-10,-8,-5,-50,0 

100 DIMA$ (35 ,CI(31,04(1!,R£(3),57.(7 

i 

118 REM arrays for score ladder 
328 DIMs%(81 ,s$!8! iF0RAX=BT0S;s7.fAZ 
)=0:5$iAX)= M Happy Harry ":NEXT 
138 REM arrays for prizes 
148 DlMprize$(7) 

150 RESTORE!FQRa=0TOJ:REftDprize*iai 
: NEXT 


160 DATA "a plastic rinqVa cardtio 
if a dolls house",“a fish in a baa",“a 
coconut","a ran doll","a plaster due 
kVa toy whistle","any prize on the 
stall" 

170 MODES 

180 VDU23;B202;8;0:B> 

190 PRINTTA8!9,2) "tieicoiise to the MI 
CRC fair""' 

200 PR!NTSPC2"trv your luck at the 
shooting gallery"' 1 ' 

210 PRINTSPCVA prize every time 1 

220 PRINTSPC2"everyone wins on Han 
py Harry's pitch"" 

230 PRINTSPC13"5 darts per go"" 
240 PRINTSPC14"PRESS ANY KEY" 

250 PRQCffiulti colour:FORa=8TO1000:N 
EH 

260 PRINTTABU4,2) "INSTRUCTIONS"" 
270 PRINTSPC9 1 '2 move gun to the rig 
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tit*"' 

288 PRINTSPC9"X move gun to the le 
ft" • 

290 PRINTSPC9"SPACE to fire a da 
rt“" ‘ 

380 PR1,NTSPC14»PR£SS ANY KEY” 

310 PRGCmulti colour 
328 MQDE5:VDU19,1,!',0! 

338 REN define characters 
340 VDU23,224,0,6,148,127,255,206,1 
83,0 

358 VDU23.225,0,0,59,223,254,60,8,5 

6 

360 VDU23,226.24,24,24,126,44,124,2 
8,56 

370 VDU23,227,0,16,123,222,115,8,8, 

8 

380 VDU23.228,8,0,62,107,62,85,85,6 
5 

390 VDU23,229,8,0,56,32,48,8,56,0 
400 VDU23,230,0,8,0,78,202,74,238,8 
410 VDU23,231.126,153,153,132,70,40 
,66,60 

420 VDU23,232,16,56,16,Is,16,16,56, 
40 

430 VDU23,233,16,14,16.24,20,68,31, 
15 

448 REN set up score array 
450 RESTQRE468:FQRa=8T0?:READSXfa): 
NEK! 

468 SATA 2,1,3,4.5,10,28,-2 
478 PROCsetup characters 
488 REN the pun 

490 GtsC*(2l+* "*CHfit(23J)+" " 

508 RtM the darts 

510 Bi(0)=" ’ , +CHRii8)+CHRiU0M" "s' 
DtUi=Cti1)+CHR$*232!+CHRI(8)+CHRI(10 
)+* ” 

520 At* 1 ' 

530 VDU19,3,10;0i 
540 VDU23;8282;0;0;0; 

550 *FX9 100 
560 »FX10 108 
570 PRINT"**** Fair Play 
2) "Score Shots" 

580 REM constants 
590 AX*135:aX*k.FFF4 
608 REN U7. n k ZX temp numbers 
610 REN Lit Vi 5 Zt temp strings 
628 REM initial settings for variab 
les 

630 TX s 8:tX* 1:S7=5: sX* 1!IX*0 
640 8X=9 

650 T!ME=1:NX=0!NX=0!RESTORE 1180 
660 REPEATJX*24 
670 CX*8iDI>B:Hl>14:Xl*l:Yl*4 
680 IX=0 


690 07=0 

700 REM sain loop 

710 REPEATCX=CX+iANB7:IF TIHE>«RX»1 
0READNX.MX:IFFNT S0UNDfcl2,5,(NX-17)*4 
,255:S0UND&13,4,(N%-25)*4,255;TIME=0 
720 PRINTTAB(BX,30!GtiVDU31,XX,YX:P 
RINT;FNp(0$(DX)!:IFOXQX=0:PRINTTAB(0, 
HX+6);A$:HX=HX-2:IFHX=4HX=6 
730 IFiCXANDl)PRINTTAB<8,HX+(CXANDl 
4!)Ct(CXM0D3+l)At(CXD!V2!ELSEAt(CXDIV 
2)=FNmove(At(CXDIV2),CXAND31 
740 IFYX<)4YX*YX-1:IFYX«3YX=4sDX=0 
758 IFDX=0IFINKEY-99DX=1:XX=BX+liYX 
=29:S7=SX-1:SOUNDM 0,-l5,5,8 
760 IFBX)1IFINKEY-9BBX=BX-1 
770 I FBX< 16 IF INKEY-67B7.=BX+1 
788 lFsXsX=0:PRINTTAB!17,2)Ct(S!;SX 
’ *i 1FSX<117.=1 ELSEIFtXOTXPRINTTAB(6 
,2)CtU!;TX 

790 UNTILIX:IFSX)0FORuX=108TO208STE 
P3: SOUND 1,1, u%, 3: NEXT: L%=LX+1: J*/,=24:1 
X-8:SX=5isX=l:PROCsetup characters:PR 
OCehangeiRESTORE!180!UNTI10 
800 UNTlLl;Zi=prijei(7)i!FTX<699Zt= 
prize* (<TXDIV‘100)AND7) 

810 *FXi5 

820 FORAX*158T08STEP-15SOUNDt,-AXOI 
V10,A%,1s NEXT 

830 MQDE6:PRINTTAB(0,2)"Well done y 

ou have won.Z* — "PRESS ANY KEY 

TO ENTER YOUR NAME' 1 '"'"If your score 
is high enough,of course":VDU23;8202 

J0S0S0; 

840 PRQCmulti col our:PROCscore_ladd 
er(TXh GOTO 170 
850 REM end main loop 
860 DEFFNmove(At,AX)IFAXZ$=LEFTt(At 
,!l!=RIGHTt(At,19l+Zt ELSEZt*R!GHTt(A 
t,ll!=Zt+LEFTtiAt,19) 

878 DEFFNp (At) ZX=USRaXs IF?H69<>32D 
7=0:IFYX>HX-lUX*(YX-HX)DIV2:At!UX! a LE 
FTt(AtUiX) ,XX-l)+“ "+RIGHTt(A*(UX), 

18-XXM Y%=4: sX=l s PROCcheck (S7(?4*469-l 
28)):J%=J 7-1;IFJ7=0:37=1 
880 IFYX=HXsX=l 
890 =Dt(DX) 

900 REM checks on characters hit th 
en pays out accordingly 
910 DEFPROCcheck(AX)1FAX>9SX=S7+A7D 
IV2: SOUNDS. 11,1,100,12; ENDPROC 
920 IFAX--2QX*1!SOUNDS 11,2,120,15!E 
NDPRQC 

930 TX=TX+AX+(3-UX)*10:S0UND611,3,1 
30,4:ENDPROC 

940 DEFPROCsetup characters:FORa=0T 
03:C$(a)=CHR*(17)+CHR$ < a):Af!a):FO 
Rz=0TO6:At < a)=A*(a)+* ”+CHRt(223+RND 
18)):At(a 5 =LEFTt(A*(a),20):NEXT,:ENDP 
ROC 


950 REM adds multi colour to mode 6 
960 BEFPRQCmulti,colour 
970 REM do not abreviate or add to 
lines 990 k 1008 
980 *FX 15 
990 REPEAT*FX19 

1800 F0RA7.=1T06 s VDU19,1, A%; 0;::: NEXT 
iDNTILINKEY <0)0-1 :CLS: ENDPROC 
1018 REM change colours 
1020 DEFPROCchange R7U)=RND(15)sREP 
EATRX (2) =RND 115) ;RX(3)=RNDU5hUN?3LR 
X(1X >RX12)ANDRX(2)<)RX(3)ANDRX(1)< >R 
7<3):FORa=lTO3:VDU19,a,R7(a):0::NEXT: 
ENDPROC 

1830 REM score ladder 
1048 DEFPRQCscore 1 adder (S75:*FX15 
1058 VDU4,23;8282;8;0;0;iIFSX)sX(7iP 
RINTTABUt, 18)"Please enter“"SPCIPY 
our name"* ’:IFFNs AX=-i:REPEATA7=A 
%+i:UNTILS7>s71 A%):F0RB%=7T0AXSTEP-1: 
s7(87+1)=s7<B7):s*1B7+1)=sf(B7):NEXT: 
sX(AX3=SX:st(AX)=Zt 

I860 8t=”.* 

1070 CLS:VDU23;8202;0;8;0;:PR1NTSPC7 
"Harry's Hall of HEROES' 1 ''SPC11* Last 
Score®";SX'Scores "*Bt+" Name 
s"’:F0RA7=8T07:PRINTSPC4* ";sX(AX!TAB 
(11)BITAB(25)" *st(AX)’:NEXT:PRINTSPC 
ii“PRESS ANY KEY":*FX15 
1080 VDU19,1,6;0;:REPEATUNTILGET:END 
PROC 

1890 DEFFNs A7=8:Zt= KM 
1100 VDU7 

1110 X7=8ET:IFX7=13=1 

1120 IFX7=l27ANDA7=860T0i100 

1130 1FX7=127:AX=AX-1:Zf=LEFT* < Z*.A% 

)ELSE IFA7<12A7=A7+1:Zt=Zf+CHR$X7ELSEV 
DU7 

1140 PRINTTABUi, 14)" "Zt" *:B0T0111 

0 

1150 DEFFNT IFM7=0RESTGRE1180:=8ELSE 
*1 

1168 UNTIL0 

1170 REM mid C=25 

1180 DATA 37,6,27,6,35,6,25,6 

1190 DATA 34.2,33,2,34,2,37,4,36,2,3 

5.2.34.2.33.2.34.4.31.2 

1200 DATA 32,2,31,2,32,2,35,4,34.2,2 

5.2.30.2.34.2.37.4.38.2 

1210 DATA 39,2,38,2,39,2,41,4,41,2,4 

1.6.39.4.38.2 

1220 DATA 37,6,27,6,35,6,25,6 
1230 DATA 34,2,33,2,34,2.37,4,36,2,3 
5,2,34,2,31,2,32,6 
1240 DATA 33,6,41,4,39,1,41,1,42,6,3 

4.4.35.2 

1250 DATA 36,2,39,2,37,2,35,4,29,2,3 
0,6,34,2,35,2,36,2 
1260 DATA 0,0 
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Once you've got 



you might never see 
the end of it! 



Access/Barclaycard orders. 

Tel: (0274) 729306 

Available direct from Pace or from your 
nearest Micro Dealer. 

PACE, 92 New Cross Street, 

Bradford, BD58BS. 

' Fortress' Cassettes at £8.95 inc VAT 
+55p P+P TOTAL £9.50 
And/or 'Fortress' Discs at £11.95 inc. VAT 
+55p P+P. TOTAL£12.50. 

Total remittance enclosed . 

Access/Barclaycard No. 

Cheque/PONo . 


Fortress sets the pace for other 
Micro Games 

Put your skills to the ultimate test and overcome 
tne impossible with the explosive new game 
from Pace. Meet the challenge and make your 
mark... The fortress awaits you. 

Cassette £8.85 inc. VAT 
Disc version available. Usable on both 40 and 
80 track drives. £11.95 inc. VAT. 


Name .. 
Address 




















A realistic interpretation of the gentle art of playing bowls by ALAN TOPHAM 



CROWN Green is a vivid simulation of 
the game for two players. The program 
allows for different weights of bowl, 16 
bowling directions and left or right bias. 
The wood — the name remains, even 
though many bowls are now made of 
plastic — even slows down to a halt 
realistically. 

For those of you who like to play 
rough, full allowance is made for 
cannoning of woods into one another. 


Each player plays two woods 
alternately from the footer (a non-slip- 
pable mat). The player who bowls the 
jack also retains possession of the footer 
until his bowl has stopped running. 

If the jack comes to rest within less 
than 21 yards - strength 150 in our 
game - or is bowled directly off the 
green, the player loses it to the 
opponent. 

If it is knocked off the green during an 



VARIABLES \ 

A%,B% 

Coordinates of the running bowl. 

C% 

Colour of each bowl. 

P% 

TRUE if a bowl has been hit or 2 if it has gone off the 
green. 

M%,N% 

Coordinates of any hit bowl. 

H% 

Number of bowl being bowled. 

A% 

Player. 

HIT% 

TRUE if any bowl has been hit. 

S%,T% 

Determines direction of running bowl and causes it to 
curve (bias). 

F% 

TRUE if jack is being bowled. 

X%,Y% 

Position of the footer. 

A$,B%,C% 

PROCmessage parameters. 

D% 

Direction of bowl pointer arrow. 

G$ 

Bias selection (finger or thumb peg). 

E% 

Strength factor. 

MANX%,MANY% Position of man at start of delivery. 

MANX2,MANY2 

Position of man at the footer. 

L% 

Count for running bowl - random factor at line 990 brings 
an element of chance. 

G% 

1 if the jack has been knocked off during an end. 

PROCEDURES 

PROCbowl 

Moves current bowl and calls PROCwhbowlA and tests for 
a hit. 

PROCover 
PROCbend and 

The finish of each end. 

PROCacross 

Causes the bowl to bend according to the bias (G$). 

PROCmove 

Moves only the “hit” bowls. 

PROCwhbowlA 

Tests for a hit on any still bowl. 

PROCscores 

Measures the bowls from the jack. 

PROCslow 

Ensures that each bowl wobbles to a halt instead of 
stopping dead. 


V 


end, that end is replayed and the same 
player retains the jack. 

At the completion of each end a 
player scores one chalk - point — if his 
bowl is nearer the jack and two points if 
both are. The first player to 21 points is 
the winner. 

Before each delivery instructions are 
given in the boxes at the top and bottom 
of the screen and a hint is given as to 
which way the run of the bowl will bend. 

The lines drawn between each bowl 
and the jack at the finish of each end 
represent measuring strings and the 
player who wins the end bowls the jack 
at the start of the next one. 

It is sometimes better to alter the 
direction and peg - bias - to avoid 
knocking your opponent in or yourself 
out. 
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10 REM CROWN SREEN BOWLS 
20 REM BY ALAN TOPHAM 
30 REM THE MICRO USER 
40 ON ERROR SQT02490 
50 DIM AX(5),5X15),CX(5),PX(5),MX( 
5),NX(5! 

60 PROCinit!MODE1 
70 00019,1,4,0,0,0,19,3,2,0,0,0 
BO C0L0UR1: PRINTTAB (1,11 j CHRI24B: P 
RINTTAB(38,30) 5 CHR$248: COLOUR2: PRINTT 
AB(38,1){CHRI24B:PRINTTAB(1,30);CHRI2 
48 


90 PROCscreenjPROCprintscores 
100 REPEAT 
110 CX(HX)=AX 

120 IF AX=2 PROC#essage("BLUE BOWL 
TO PLAY-,11,30) ELSE PROCusssaqePYEL 
LOW BOWL TO PLAY",10,30) 


^130 PRQCdirection 


140 PROCbias 
150 PROCstrengh 
160 PROCposaan 
170 PROCboul 

180 IF HX S 6 THEN PROCover 



190 UNTIL scorelX>=21 OR score2X>*2 

1 


200 PROCfin 

210 END 

220 DEFPROCinit 

230 VDU23,240,3,3,3,1,1,7,15,27,23, 
241,192,192,192,128,128,224,224,224,2 
3,242,51,99,195,131,3,3,3,3,23,243,22 
4,224,240,216,204,198,195,193,23,244, 
2,2,2,2,2,2,2,2,23,245,64,64,64,64,64 
,64,64,64,23,246,0,56,124,124,124,56, 
0,0 





\J I 




tt 



• • till /n. . u,< 
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240 VDU23,241,192,192,192,128,128,2 
24,224,224 

250 VDU23,224,16,56,84,146,16,16,16 
,16,23,225,124,10,10,17,16,32,32,64,2 
3,226,31,3,5,9,17,32,64,128,23,227,8, 
6,1,7,25,97,129,0,23,228,8,4,2,255,2, 
4,8,0,23,229,0,129,97,25,7,1,6,8,23,2 
30,128,64,32,17,9,5,3,31 
260 VDU23,231,64,32,32,16,17,10,10, 
124,23,232,8,8,8,8,73,42,28,8,23,233, 
2,4,4,8,136,80,80,62,23,234,1,2,4,136 
,144,160,192,248,23,235,0,129,134,152 
,224,128,96,8,23,236,16,32,64,255,64, 
32,16,0,23,237,8,96,123,224,152,134,1 
29,0 

270 VDU23,238,240,192,160,144,136,4 
,2,1,23,239,62,80,80,136,8,4,4,2,23,2 
47,0,0,24,60,60,24,0,0,23,248,16,48,1 
12,240,16,16,16,16 
2B0 HITX=FALSE:Z=0:FX=TRUE;H7.=1:sco 
rel%=0:5core2%=0;AX=2:XX=650:YX=200 
290 ENDPROC 
300 DEFPROCscreen 

310 M0VE20,20:DRAW1259,20:DRAW1259, 
1003:DRAH20,1003:DRAW20,20 
320 VDU24,75{75;1204;948; 

330 SCOLO,13t:CLG 
340 ENDPROC 

350 DEFPRQCaessage(AF,BX,CX) 

360 VDU4 

370 PRINTTAB(B%,C%>;A$ 

380 VDU5 
390 ENDPROC 
400 DEFPROCdirection 
410 *FX15,1 

420 PROCaessaget’SELECT DIRECTION U 
ITH (ZiX) KEYS",4,1! 

430 SCOLO,0:DX=224 

440 MOVEXX,Y%:VBU42,1i,8,DX 

450 REPEAT 

460 E=INKEY(500! 

470 IF E=B8 THEN DX=DX+i:IF DX=240 
THEN D%=224 

480 IF E=90 THEN DX=DX-1:IF DX=223 
THEN D%=239 
490 VDU127,DX 
500 UNTIL E=SiOD 
510 ENDPROC 
520 DEFPROCbias 
530 B0SUB2350 

540 IF D%=227 OR DX=228 OR DX=229 P 
ROCaessaqe("SELECT BIAS (Z UP X DOWN) 
",7,1! ELSE IF DX=235 OR DX=236 OR DX 
=237 PROCmessaqe("SELECT BIAS (X UP Z 
DOWN!',7,1! ELSE PROCmessage("SELECT 
BIAS !Z LEFT X RIGHT) 9 ,7,1! 

550 REPEAT:B$=SETi:UNTIL G$="Z" OR 


S*="X* 

560 S0SUB2350 
570 ENDPROC 
580 DEFPROCstrengh 
590 PROCsessagef"STRENGTH (MAX 300) 
’ ,7,1) 

600 VDU4 

610 INPUTTAB(25,1),EX;IF EX>300 THE 
N G0SUB2350:PROCstrengh 
620 G0SUB2340 
630 GOSUB2350 
640 ENDPROC 
650 DEFPROCposaan 
660 MOVEXX,YX:VDU9,127,11,9,127 
670 RESTORE 710 
680 FOR Q=224 TO DX 
690 READ MANXX,KANYX,MANX2.MANY2,SX 
,TZ 

700 NEXT 

710 DATA-57,-20,-57,60,0,5,-77,-20, 
-57,60,2,5,-96,-20,-57,60,4,5,-96,38, 
-57,78,5,2,-96,96,0,96,5,0,-96,108,0, 
75,5,-2,-96,120,24,55,4,-5,-38,120,24 
,55,2,-5 

720 DATA20,120,24,55,0,-5,40,120,24 
,55,-2,-5,72,120,24,55,-4,-5,72,80,24 
,48,-5,-2,72,40,0,40,-5,0,72,10,0,50, 
-5,2,72,-20,-57,60,-4,5,10,-20,-57,60 
,-2,5 

730 MOVEXX+MANXX,YX+MANYX:G0SUB2360 
740 IF OX-224 OR DX=225 OR DX=226 0 
R DX=227 OR DX=236 OR DX=237 OR DX=23 
8 OR DX-239 HOVE XX+MANXX+60.YX+MANYZ 
-60 ELSE HOVE XX+MANXX-24,YX+HANYX-4B 
750 IF FX GC0L3,3:VDU247 ELSE GC0L3 
,AX:VDU246 

760 TIHE=0:REPEAT UNTILTIME>90 
770 IF FX VDU8,247 ELSE VDU8.246 
780 HOVE XX+HANXX,YX+HANYX:G0SUB236 

0 

790 HOVE XX+MANX2,YX+MANY2:G0SUB236 

0 

800 ENDPROC 
810 DEFPRQCbowl 

820 IF HZ-1 THEN GC0L3,3 ELSE SC0L3 
, AX 

830 AX<HX)=XX:BX(HX)=YX 
840 HOVE AX(HX),BX(HX):IF HX=1 VDU2 
47 ELSE VDU246 
850 LX=0 
860 REPEAT 
870 LX=LX+1 

880 IF LX HOD 50=0 PROCbend 
890 PROCaove 

900 IF HX=1 THEN GC0L3,3 ELSE GC0L3 
,CX(HX) 

910 X1X=AX CHX)+SX:Y1X=BX(HX)+TX 
920 HOVE AX(HX),BX(HX):IF HX=1 VDU2 
47 ELSE VDU246 


930 HOVE XIX,Y1X:IF HX=1 VDU247 ELS 
E VDU246 

940 AX(HX)=X1X:BX(HX)=Y1X 
950 IF AX(HX)<90 OR AX(HX)>1165 OR 
BX(HX)>940 OR BX5HXX110 THEN SOUNDO, 
-15,6,1:HOVEAX(HX!,BX(HX):G0SUB2370:P 
X!HX)=2:LX=EX 
960 IF LX<60 THEN990 
970 PROCwhbowlA:IF HITX SOUNDO,-12, 
3,1 

980 PROCaove 
990 IF RND(4)=2 LX=LX+2 
1000 IF LX)(EX-60! THEN PROCslow 
1010 UNTIL LX>=EX 

1020 IF PX (1) =2 THEN PROCjackof-f: END 
PROC 

1030 HX=HX+1 

1040 REPEAT 

1050 HITX=FALSE 

1060 FOR F«1 TO 5 

1070 IF PX(F!=2 THEN 1090 

1080 PX(F)-FALSE 

1090 NEXT 

1100 PRQCwhbowlA:PROCaiove 
1110 IF PX(1)=2 SX=l:PROCjackoffiHIT 
X=FALSE 

1120 UNTIL HITX=FALSE 
1130 IF FX-TRUE AND EX<150 THEN PROC 
aessage("FAILED TO SET A HARK(minimum 
150)",4,1):S0UND1,-15,i,3:T=TIME;REP 
EAT UNTIL TIHE-T>200:CLS:FX=TRUE:HX=1 
:G0T01160 

1140 H0VEXX+HANX2,YX+HANY2:6QSUB2360 
1150 IF FX-TRUE THEN FX-FALSE:ENDPRQ 

C 

1160 PROCchplayer 
1170 ENDPROC 
1180 DEFPROCover 

1190 MOVEXX-120,YX:G0SUB2360:PROCchp 
layer:HQVEXX+80,YX+20:G0SUB2360 
1200 PROCmessage("HEASURINB NON",12, 

1 ) 

1210 XX=AX(l)iYX=BX!l)!lF XX<200 THE 
N XX=200 ELSE IF XXM030 XX=1030 
1220 IF YX<200 YX=200 ELSE IF YX>800 
YX=800 

1230 PROCscores 
1240 PROCprintscares 
1250 FOR T=1 TO 3000:NEXT 
1260 GOSUB2350 

1270 IF scorelX>=21 QR score2X>=21 T 
HEN ENDPROC 

1280 PROCmeBsage("PRESS SPACE BAR",I 
2,30) 

1290 FOR T=1 TO 5:PX(TS=0:NEXT 
1300 G=GET:IF S<>32 THEN 1300 
1310 CLG:HX=1:FX=TRUE 
1320 ENDPROC 
1330 DEFPROCbend 
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1340 IF D%=227 OR 02=228 OR DX=229 0 
R 02=235 OR 02=236 OR 02=237 PROCacro 
as:ENDPROC 

1350 IF TI >1 T2=T2-1;IF T2<=1 T2=l E 
LSE IF TK-l TX=TX+1:IF T2>=-1 T2=-l 
1360 IF Bf="Z" SX-SX-1 
1370 IF GI="X" S2=S2+1 
1380 ENDPROC 
1390 DEFPROCacross 

1400 IF TX>=4 T2=4 ELSE IF T2<=-4 T2 
=-4 

1410 IF S2>1 S2=S2-l!IF S2<=1 S2=l E 
LSE IF S2<-1 SX=SX+hIF S2>=-1 S2=-l 
1420 IF 02=235 OR 02=236 OR 02=237 T 
HEN 1460 

1430 IF G$=“Z” TX=TX+1:SX=SX+1 
1440 IF G*=T TX=TZ-1:SX=SX+1 
1450 ENDPROC 

1460 IF G*="Z" TX=TX-1:S2=SX-1 
1470 IF G$=T TX=TX+1:SX=SX-1 
1480 ENDPROC 
1490 DEFPROCaove 
1500 FOR WX=1 TO H2-1 
1510 IF PX(WX)=2 OR PX(WX)=FALSE THE 
N 1590 

1520 IF WX=1 THEN GCQL3,3 ELSE GC0L3 
,CX(WX) 

1530 X1X=AX(WX!+MX(WX):Y1X=BX(WX)+NX 
(NX! 

1540 MOVE XIX,Y1X:IF HX=1 VDU247 ELS 
E VDU246 

1550 MOVE AX!WX),BX!WX!:IF WX=i VDU2 
47 ELSE VDU246 
1560 AX!WX)=X1X:BX(WX!=Y1Z 
1570 LX=LX+1 

1580 IF AX(WX)<90 OR AX!WX)>1165 OR 
B2(WX)>940 OR BXIWZKUO THEN SOUNDO, 
-15,6,1:MOVEAX <WX),BX(MX):G0SUB2370;P 
X(NX!=2:IF NX=1 L2=E2:G2=1 
1590 NEXT 
1600 ENDPROC 
1610 DEFPROCscores 
1620 FOR Y=2 TO 5 
1630 IF PX(Y)=2 THEN 1820 
1640 A=0 

1650 X1=A2(Y):Y1=B2(Y! 

1660 REPEAT 

1670 IF XKAXIl) THEN X1=X1+1 ELSE X 
l=Xi-l 

1680 IF YKBX(l) THEN Y1=Y1+1 ELSE Y 
1=Y1-1 
1690 A=A+1 

1700 UNTIL X1=AX(1) OR Y1=B2!1) 

1710 MX(Y)=A*4 
1720 A=0 
1730 REPEAT 

1740 IF XKAX(l) THEN X1=X1+1 
1750 IF XI>AX(1) THEN X1=X1-1 
1760 IF YKBX(l) THEN Yl=Yl+i 


1770 IF Yl>B2(l) THEN Y1=Y1-1 
1780 A=A+1 

1790 UNTIL X1=AX(1) AND Yl=BXfl) 

1800 NX(Y)=A*3 

1810 MOVEAX(1>+12,BX(1!-12:6C0L3,CX£ 
Y):DRAWAX(Y)+12,BX(Y)-12 
1820 NEXT 

1830 FOR Y=2 TO 5:IF P2(Y)=2 THEN 18 
60 

1840 MOVEAX(1)+12,BX(1)-12:GC0L3,CX( 
Y!:DRANAX(Y)+12,BX(Y)-12 
1850 FOR T=1 TO lOOOsNEXT 
1860 NEXT 

1870 FOR Y=2 TO 5:IF PX1Y1=2 THEN PX 
(Y)=5000:MX(Y)=Y:NEXT ELSE PX(Y)=(M2( 
Y)+NX(Y)>:MX(Y)=Y:NEXT 
1880 FOR X=1 TO 3 
1890 FOR Y=2 TO 4 

1900 IF P2(Y))P2(Y+1) THEN PX!1)=P2( 
Y):PX(Y)*PX(Y+1!:PZ(Y+1)=PX(11:MX(1!= 
MX(Y):M2(Y)=MX(Y+l):MX(Y+l)=M2(1! 

1910 NEXT 
1920 NEXT 

1930 IF PX(2)=5000 THEN ENDPROC 
1940 IF CX(MX!2))=2 THEN PROCblwin E 
LSE PROCylwin 
1950 ENDPROC 
1960 DEFPROCprintscores 
1970 FOR A=80 TO 120 STEP 10:S0UND1, 
~11,A,1:NEXT 
1980 VDU4 

1990 C0L0UR1:PRINTTAB13,30 !5 scorelX: 
COLOUR2:PRINTTAB(35,30)}score2X 
2000 VDU5 
2010 ENDPROC 
2020 DEFPROCjackoff 
2030 PROCaessaqe!" JACK OFF THE GR 
EEN ,7,1):S0UND1 ,-15,1,3:T=TIME:REPE 
AT UNTIL TIME-T>200 
2040 FOR T=1 TO 5:PX(T)=FALSE: NEXT 
2050 HX=1:CLG:FX=TRUE 
2060 IF 82=1 AX=CX(2) ELSE PROCchpla 
yer 

2070 82=0 
2080 ENDPROC 
2090 DEFPROCwhbowlA 
2100 HIT2=FALSE 
2110 FOR 82=1 TO HX-1 
2120 IF PX(QX)=2 OR P2!QX)=TRUE THEN 
2210 

2130 IFPOINT(AX(QX)-4,BX(QX)+3)<>3 T 
HEN MX(QX)=2:NX(QX)=-3:PX(QX)=TRUE:HI 
TX=TRUE 

2140 IFPOINT(A2(QZ)+12,BX(QX)+6)03 
THEN MX(02)=0:NX <0X)=-3:PX!0Xi=TRUE:H 
ITX=TRUE 

2150 IFPOINT(AX(QX)+28,BX(QX)+3)<>3 
THEN MZ(02)=-2:NX(0X)=-3:P2(0X)=TRUE: 
HIT2=TRUE 


2160 IFPOINT (AX (02)- 6 , BX (82)-12) 03 
THEN MX(QX)=3:NX(QX)=0:PX(QX)=TRUE:HI 
TZ=TRUE 

2170 IFPOINT(AX(QX)+30,BX(OX)-12)<>3 
THEN MX(QX)=-3:NX(QX)=0:PZ(QX)=TRUE: 
HITX=TRUE 

2180 IFPOINT (AX (02)+28,BX(QX!-28! 03 
THEN M2(QX)=-2:NX(QX)=3:PX(QX)=TRUE: 
HITX=TRUE 

2190 IFPOINT(AX(8X)+12.BX(QX)-30)<>3 
THEN MX(QX)=0:NX(QX)=3:PX(QX!=TRUE:H 
ITX=TRUE 

2200 IFPOINT(AX(QX)-4,BX(QX)-28)<>3 
THEN MX (QX) =2: NX (QX) =3: PX (QX) =TRUE: HI 
TX=TRUE 
2210 NEXT 
2220 ENDPROC 
2230 DEFPROCblwin 

2240 IF CX (MX(2))=CX(MX(3)) THEN PRO 
C«essage!"TWO TO BLUE", 14,30)sscorelX 
=scorelX+2 ELSE PROCnessageCONE TO B 
LUE",14,30):scorelX=scorelX+l 
2250 AX=2 
2260 ENDPROC 
2270 DEFPROCylwin 

2280 IF CX(MX(2))=CX(MX(3)) THEN PRO 
Cmessage("TWO TO YELLOW",12,30):score 
2X=score2Z+2 ELSE PROCaessageCONE TO 
YELLOW",12,30):score2X-score2X+l 
2290 AX=1 
2300 ENDPROC 
2310 DEFPROCchplayer 
2320 IF AX=2 THEN AX=1:ENDPROC 
2330 IF AX=1 THEN AX=2:ENDPROC 
2340 VDU4:PRINTTAB(3,30);SPC(34):VDU 
5:RETURN 

2350 VDU4:PRINTTAB(3,1!jSPC(34):VDU5 
:RETURN 

2360 VDU18,3,3,240,241,10,8,8,18,3,A 
2,242,243,18,3,3,10,8,0,244,245:RETUR 
N 

2370 IF WX=1 OR HX=1 THEN VDU247:RET 
URN ELSE VDU246:RETURN 
2380 DEFPROCfin 
2390 VDU4,22,7 
2400 VDU23;8202;0;0;0; 

2410 IF scorelZ>score2X PRINTTAB(7,1 
2);"BLUE WINS 21 chalks to ";score2X 
ELSE PRINTTAB(7,12);"YELLOW WINS 21 
chalks to "sscorelZ 
2420 TIME=0:REPEAT UNTIL TIME>300 
2430 PRINTTAB(6,20)CHRf136;"PRESS AN 
Y KEY TO PLAY AGAIN" 

2440 8 = 8 ET:RUN 

2450 DEFPROCslow 

2460 IF SX<0 SX=-1 ELSE SX=1 

2470 IF TX<0 TX=-1 ELSE TX=1 

2480 ENDPROC 

2490 REPORT:PRINTERR:PRINTERL 
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Lay your 
lards on 
the table 


By STUART MEIMEFY 




PROCEDURES 


PROC_DEFINE 


PROCJiNIT 

PROC_SCREEN 

PROC_GO 

PROC_SHUFFLE 

PROC_SOUND 

PROC_DELETE 

PROC_COMMENT 

PROC_HUMAN 


PROC_POSSIBLE 

PROC_DETAILS 

PROC_COMPUTER 

PROCJPLAY 

PROC_FLIP 

PROC_DIS_HAND 

PROC_ADVICE 

PROC_SWAP 

PROC_INSTRUCTIONS 


FNJDEAL 


FN_INPUT 


FN_COMPUTER 


Defines characters, envelopes, 
sets up DIMs and major 
variables. 

Sets up variables for each new 
game. 

Displays screen. 

Decides who starts. 

Sets up and shuffles the pack. 
Makes a bleep, when an input is 
not valid. 

Removes last character from 
input string. 

Displays a centralised comment 
for required period of time. 
Accepts and validates the 
humans entry, and performs the 
required function, if possible. 
Finds out if a card may be 
played from the current hand. 
Calculates the representation, 
value and suit of a card. 

Play's a card if possible from the 
micro’s hand. 

Plays a card, and removes it 
from the hand. 

Attempts to make the sound of 
a card being put down! 
Displays the human’s hand. 
Tells the human which card to 
play, using the micro’s criteria. 
If possible, swaps the human's 
and micro’s hands. 

Displays brief instructions, and 
asks for the human’s name, the 
time for which messages are 
displayed, and if hands can be 
swapped. 


FUNCTIONS 

Moves a card from the top of the pack 
to one of the hands. 

Asks the human for his/her instruc¬ 
tion. 

Returns the position of the ‘best’ card 
to play. 




FN_END 


FN_YES_NO 


CARD$(13) 

C%(8) 

CARDS 


CARD% 

DELAY% 

end% 

G%(8) 


GO% 

GO_POS% 

GOS 

HAND%(1) 

HAND_LEN%(1) 

NAMES 

NUM_GO% 

PH%(8) 

PACK% 

PACK_LEN% 
Pl% & P2% 

PH% 

SCOREO% & 
SCOREl% 
SNUM% 

SUIT% 

VLU% 


Displays which player won, makes an 
appropriate sound, and asks if the 
human would like another go. 

Only returns TRUE if “Y” pressed, 
FALSE if “N” pressed. 

VARIABLES 

Contains the representation of each 
card. 

The last card played in each section 
(see below). 

A representation of a card, including 
colour control characters, as deter¬ 
mined in PROC_DETAILS. 

The cards face value, from 1 to 13, as 
determined in PROC_DETAILS. 
Delay while messages are displayed, in 
centiseconds. 

Whether the game has finished or not. 
In which section the most cards can be 
played, used to determine the micro’s 
go. 

The current player (see below). 

The position in the current hand of the 

best card to play 

Command entered by human. 

Position in memory where each hand 
starts. 

Length of each hand. 

Human’s name. 

Number of cards that can be played. 
Position in the hand of each card that 
can be played. 

Position of the start of the pack in 
memory. 

Number of cards in the pack. 

Used in shuffling the pack. 

Position in the human’s hand of the 
card he/she wants to play. 

Number of games won by the human, 
and micro. 

Number of times the human may swap 
hands with the micro. 

Suit number, from 1 to 4, as determined 
in PROC_DETAILS. 

Card’s internal value, as determined in 
PROC_DETAILS. 
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SEVENS is a traditional card game, 
depending partly upon luck and partly 
upon the skill of the players. 

The game is played with a normal 
pack of playing cards, the object being 
to lay down all your cards before your 
opponent. 

However cards may only be laid 
down in order, starting from seven, 
going up to king, and down to ace, and 
may only be laid down with other cards 
of the same suit. 

Each player starts with seven cards, 
dealt from the pack, and puts down a 
card in turn. If he or she is unable to go, 
then a card must be picked up'from the 
pack, and added to the hand. 

In this way, four piles of cards 
develop, in order, and the winner is the 
player who is able to put down his or her 
final card. 

In this version you play against the 
micro, who cannot “see” your hand, 
although it is displayed on the screen. 

The player can also swap hands with 
the micro a limited number of times - as 
set by SNUM% - and can also give 
advice on which card to play. 

The logic behind deciding which card 
to play is simple, as can be seen in 
FN_COMPUTER, and is used by the 
micro for its own goes, and also to give 
advice. 

Having first checked to see how 
many cards can possibly be played 
(PROCJPOSSIBLE), the micro returns 
a—1 if no card can be played. If only one 
card may be played then its position is 
returned, otherwise the remaining logic 
comes into play. 

This first checks to see how many 
cards are held in the hand in each 
‘section’. There are eight sections, two 
for each suit, which extend from seven 
(which is included in both sections), 
either up or down. 


In the arrays and scoring, the human 
is player 0, and the micro is player 1. 

Also, the word “section” in arrays 
C%(8) and G%(8), section 1 (or element 
1) is from seven hearts, to the king 
hearts, 2 is from the ace hearts to the 
seven hearts, and similarly 3 and 4 are 
clubs, 5 and 6 diamonds, and 7 and 8 
spades. 


The section that has the greatest', 
number of cards in, and has a card that' 
can be played, is used, and that card’s 
position in the hand is returned. 

This gives the player one advantage, 
in that the micro does not understand 
‘blocking’. This is when you hold a card 
for as long as possible, to prevent the 
micro being able to lay down his own 
cards, which come after it. 

For example, if it is thought that the 
micro holds the jack, queen and king, 
then by delaying putting down the ten, 
you stand a greater chance of winning. 


10 REM SEVENS 
20 REM by S.I.Nenefy 
30 REM for 32K BBC 
40 REM (c) Micro User 
50 HQDE7 
60 PRQCJEFINE 
70 PR0C,INSTRUCTIONS 
80 PR0C INIT 
90 MODE 1 
100 PR0C.SCREEN 
110 PR0C GO 
120 PROC.SHUFFLE 
130 REPEAT 

140 IF SOX PR0C.C0MPUTER ELSE PR0C, 
HUMAN 

150 UNTIL HAND_LENX(0)=-1 OR HAND.L 
ENX(1)=-1 OR endX 

160 IF NOT(endX) THEN IF FN.END THE 
N SO 

170 MODE 7 
180 *FX4 
190 END 

200 DEF PR0C DEFINE 
210 VDU 23,224,54,127,127,127,62,28 
, 8,0 

220 VDU 23,225,8,28,62,127,127,28,6 

2,0 

230 VDU 23,226,8,28,62,127,62,28,8, 

0 

240 VDU 23,227,28,28,107,127,107,8, 
28,0 

250 VDU 23,228,0,0,0,0,0,96,96,0 
260 ENVELOPE 1,1,2,0,0,60,0,0,127,0 
,0,-127,126,126 

270 ENVELOPE 2,3,0,0,0,0,0,0,121,-1 
3,0,-10,120,120 

280 ENVELOPE 3,0,-2,0,0,100,0,0,1,0 

, 0 ,- 1 , 1,0 

290 ON ERROR REPORTsPRINT" at line 
"I ERL:END 

300 SC0RE0X=0:SCORE1Z=0 




‘V* 

* * / 

* *t 


310 DIM HANDXU),HAND LENX(l) ,CARD* 
!13) ,CX(8),GX!8>,PHX(8):PACKX=&900 
320 HANDX(0)=PACKX+52:HANDX(1)=PACK 
Z+104 

330 FOR A%=1 TO 13:READ CARD*(AX):N 
EXT AX 
340 ENDPR0C 

350 DATA ACE,2,3,4,5,6,7,8,9,10,JAC 
K,QUEEN,KING 
360 DEF PR0C.INIT 

370 ON ERROR IF ERR=17 THEN 130 ELS 
E REPORTsPRINT" at line ERL:END 
380 endX=FALSE 
390 SNUMX=2 

400 PACK LENX=51:HAND_LENX(0) S -1:HA 
ND_LENX(1)=-l 
410 ENDPR0C 
420 DEF PR0C.SCREEN 
430 VDU 19,2,2;0; 

440 VDU 23,0,10,32,0;0;0|24,0;336;9 
76;944;18,0,130,16,26 
450 PRINT’Gates to "NAME*" ";SC0RE0 
X 

460 PRINFGaees to computer "|SCORE 
IX 

470 RESTORE 520 
480 FQRAX=1 TO 4 
490 READ YX 

500 MOVE 0,YX:DRAW 976,YX 
510 NEXT 

520 DATA 880,432,336,208 
530 MOVE 0,944:DRAM 1280,944 
540 MOVE 976,1024:DRAW 976,0 

550 FOR AX=0 TO 3:MOVE AX*224+80,94 
4:DRAM AXt224+80,432:NEXT AX 
560 VDU 5 

570 FOR AX e l TO 13 

580 MOVE 16+<16*(LEN!CARDI(AX))=2)> 
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, AX*32+440 

590 PRINT LEFT*(CARD*(AX),1-(LEN(CA 
RD*(AX))=2)) 

600 NEXT AX 
610 FOR AX-1 TO ♦ 

620 HOVE AX*224-48,92B 
630 GC0L0,AX HOD 2 
640 PRINT CHR4(AX+223) 

650 NEXT AX 
660 SCOL 0,3 
670 HOVE 984,1000 
680 PRINT"Your hand* 

690 VDU 4 

700 PRINT TAB(0,22)"Nuiber lift in 
pack 52* 

710 PRINT'Nutber in coeputers hand 
7" 

720 IF SX PRINT'Nueber of swaps lef 
t 2" ELSE PRlNT"You cannot swap hands 

M 

730 PRINT'TAB(13)"KEYS" 

740 PRINTTABI2,27)"Cannot go" 

750 PRINT" End gase" 

760 PRINT" Advice on what to do* 
770 IF SX PRINT" Swap hands with t 
he cosputer" 

780 PRINT"or nunber of the required 
card"; 

790 COLOUR 1 

BOO PRINTTAB 10,27) "C*'"E"'"A"'CHR*( 
-83*SX) 

810 COLOUR 3 
820 COLOUR 130 
830 ENDPROC 
840 DEF PROC 60 

850 IF SC0RE0X=SCQRE1X B0X=RND<2)-1 
ELSE IF SC0RE0X<SC0RE1X G0X=0 ELSE 6 
OX-1 

860 IF BOX PRINT TAB(10,19)"I go fi 
rst" ELSE PRINT TABX8,19)"You go firs 
t* 

870 ENDPROC 
880 DEF PROC.SHUFFLE 
890 SOUND 0,-13,3,60 
900 SOUND 1,3,255,60 
910 AX S 1 

920 FOR BX s 0 TO 51 

930 IF AX HOD 20=14 AX=AX+7 

940 PACKX?BX=AX 

950 AX=AX+1 

960 NEXT BX 

970 FOR AX-1 TO 50+RND(50) 

980 PlX=RND(52)+PACKX-lsP2X=RND(52) 
+PACKX-1 
990 TX=?P1X 
1000 ?P1X=?P2X 
1010 ?P2X=TX 
1020 NEXT AX 


1030 FOR AX=0 TO 6 
1040 FOR BX=0 TO 1 
1050 CX=FN_DEAL(BX) 

1060 NEXT BX 
1070 NEXT AX 

1080 PRINT TAB(0,20)SPC(30) 

1090 PROC DIS.HAND 
1100 ENDPROC 
1110 DEF FN DEAL(CX) 

1120 IF PACK.LENX=-1 =FALSE 
1130 LX—1 
1140 REPEAT 
1150 LX=LX+1 

1160 UNTIL HANDX<CX)?LX>PACKX?PACK_L 
ENX OR LX)HAND LENX(CX) 

1170 FOR KX=HANDX(CX)+HAND LENX(CX) 
TO HANDX(CX)+LX 5TEP-l:?iKX+l)=?KX:NE 
XT 

1180 HAND LENX(CX)=HAND LENXiCXHl 
1190 HANDX(CX)7LX=PACKX?PACK_LENX 
1200 PACK_LENX=PACK_LENX-1 
1210 COLOUR 128 

1220 PRINT TAB(20,22);PACK_LENX+1;" 

■ 

1230 COLOUR 130 

1240 PROC.FLIP 

1250 =TRUE 

1260 DEF FN_INPUT 

1270 *FX15 

1280 COLOUR 3 

1290 VDU 23,0,10,96,0;0;0; 

1300 1NPUTTAB(0,19)"Please enter you 
r go'SPC<10)TAB(21,19)inputs 
1310 VDU 23,0,10,32,0;0;0; 

1320 IF VAL(input*)>HAND.LENX(0)+l P 
R0C_S0UND:PR0C_C0HHENT("You don't hav 
e "+input*+" cards",FALSE)sSOTO 1270 
1330 IF input**"" PRQC.SOUNDjGOTQ 12 
70 

1340 =inputl 
1350 DEF PROC.SOUND 
1360 SOUND 1,-15,101,2 
1370 ENDPROC 
1380 DEF PROC DELETE 
1390 IF inputi®*"ENDPROC 
1400 input$=LEFT*(input*,LEN(inputl) 
-l) 

1410 VDU 127 
1420 ENDPROC 

1430 DEF PROC COMMENT(COHHENT♦,COLX) 
1440 PRINT TAB((30-(LEN(COHHENT*)+C0 
LX*5))/2,20)COHHENT*; 

1450 AX=INKEY(DELAYX) 

1460 PRINT TAB(0,20)SPC(30) 

1470 ENDPROC 
1480 DEF PROC.HUHAN 
1490 PROC POSSIBLE 
1500 6Q*=FN INPUT 

1510 IF LEFT*(60$,1)<>"C" THEN 1590 
1520 IF NUH B0X>0 PROC COHHENT("You 


can go",FALSE):80T0 1500 
1530 BX=FN.DEAL(0) 

1540 PROC DETAILS(LX,0) 

1550 IF BX PROC COHHENT("You picked 
up "+CARD*,TRUE) ELSE PROC.COHHENTCT 
he pack is eepty",FALSE) 

1560 PROC.DIS.HAND 
1570 6QX*I 
1580 ENDPROC 

1590 IF LEFT*(BO*,1)®*A" AND NUH.GOX 
>0 PROC ADVICE:8QT0 1500 
1600 IF LEFT*(BO*,1)="A" THEN 1650 
1610 IF LEFT*(6Q*,1)="S* PR0C_SHAP:6 
OTO 1490 

1620 IF LEFT*(BO*,1)®*E" endX=TRUE:E 
NDPROC 

1630 PHX=VAL(B0*)-1 
1640 IF PHX—1 PROC.SOUNDiPROC.COHHE 
NT("Pardon?",FALSE):60T01500 
1650 IF NUH 60X=0 PROC.CQHHENT("You 
can't go",FALSE)iBOTO 1530 
1660 PROC DETAILS(PHX,0) 

1670 FOR AX-1 TO NUH BOX 
1680 IF PHX=PHX(AX) THEN AX=9 
1690 NEXT AX 

1700 IF AX<9 PROC_COHHENT("You canno 
t play that card",FALSE):GQTO 1500 
1710 PROC PLAY(PHX) 

1720 PROC.DIS.HAND 
1730 80X=1 
1740 ENDPROC 
1750 DEF PROC.POSSIBLE 
1760 NUH B0X=0 

1770 FOR AX=0 TO HAND.LENX(BOX) 

1780 PROC DETAILS(AX,GOX) 

1790 IF CX((SUITX*2)+(CARDX>6))=VLUX 
-1 AND CARDX>6 THEN NUH_SQX=NUH_60X+1 
:PHX(NUH BOX)=AX 

1800 IF CX< <SUITX*2) + (CARDX>6))=VLUX 
+1 AND CARDX<=6 THEN NUH.80X=NUH.B0X+ 
1:PHX(NUH BOX)=AX 

1810 IF CARDX=7 THEN NUH.60X=NUH.B0X 
+1:PHX(NUH_80X!=AX 
1820 NEXT AX 
1830 ENDPROC 

1840 DEF PROC_DETAILS(posX,DX) 

1850 VLUX=HANDX(DX)?posX 
I860 SUITX=(VLUX DIV 20)+l 
1870 CARDX=VLUX HOD 20 
18B0 CARD*=CHR* 17+CHR*(SUITX HOD 2) 
+CHR* 18+CHR* O+CHR*(SUITX HOD 21+CAR 
D*(CARDX)+CHR*(223+SUITX) 

1890 ENDPROC 
1900 DEF FN.COHPUTER 
1910 PROC POSSIBLE 
1920 IF NUH_60X=l -PHX(l) 

1930 IF NUH 80X=0 *-l 

1940 FOR AX-1 TO B:BX(AX)=0:NEXT AX 
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Software Invasion games are available from WH SMITH, 
HMV, all SPECTRUM SHOPS and over 1,000 retail outlets. 





Grand Pris 


•n 


This is the game you've been waiting for! A 3D high 
speed formula 1 car race round 8 different international 
circuits. 

Just look at these amazing features 

❖ Bends arranged to simulate 8 actual Grand Prix circuits. 

❖ Working cockpit - Rev. counter. Speedometer, 

Temperature Gauge, gears, moving steering wheel. 

❖ Other cars which alter in perspective and size as they 
overtake. ❖ Signposts. ❖ Realistic sound effects such as 

engine noise, skids and crunching shunts. * Keyboard or 
Joystick control. ❖ Volume control. 


Runs on O S. 1.0 
hours have gone in 
BBC MICRO MOD” 
£9.95 CASSE 
£11.95 DISK 
Authors: Mick O'Neill a 


er. More than a year of man 
ting this superb game. 


ive Mendes 


Blitzkrieg is a 3D Tank Battle from the same author as 
our Best Seller "3D Bomb Alley". 

This program is probably unique in thefact that all the 
graphics were created with the help of models, a video 
camera, a video digitiser and some very special Light Pen 
software. 

This has resulted in extremely fine detail and realism, 
with fast moving real time graphics - you don't have to 
wait for the screen to be updated between each move. 
Features include:- 

* Detailed scrolling landscape. ❖ Rotating tanks. 

❖ Detailed explosions. * 3D shell movement. ❖ Recoiling 
barrel. ❖ 3D sound. ❖ Keyboard/Joystick option. 

❖ Freeze game facility. 

❖ Optional sound. 

❖ Demo' mode. 

❖ High score & 


50 Elborough Street, Southfields, London SW18 5DN 




: 




NOW WITH 
GRAPHICS! 

(BBC VERSION 0 


UVtnotAo UnUtrvo 


you have to do is write your name and 
sing your cheque/P.O. made payable to 

are normally dispatched within 48 hours!) 
game 

PLE STORES, RETAILER GROUP AND EXPORT INQUIRIES INVITED. 


Do you write your own programs? If you have an unusual program which can meet our standards you could be earning a substantial sum every 
week! Why not take advantage of our sought after reputation. Write now! 


other SOFTWARE INVASION GAMES.. .send for full list now! 


















.L. — i * . 




The company which brought you the first self-build Arcade game and the first Adventure 
with sound, just had to be the one to give you the very first QUEST for the Beeb! 

toorts; anti imcerp 

a neto vxpmvncv ... 

jr QUEST programs originated on the American mainframe computers, and were converted to micros, though requiring so much] 
/ memory could only be made to work on expanded Apple micros and the like. Now, Kansas have crammed a full feature 
(Quest into 32K, giving every BBC Micro owner the opportunity to play and experience these unique games. 

So what is a Quest? Think of an Adventure, then think of very much more. A Quest is operated similar to an Adventure, 
but no longer are you alone, starting with three helpers. As you progress you will encounter many other characters, but 
unlike an Adventure program were all characters are passive, these can be either hostile, friendly or indifferent. If hostile 
you have to fight, and quickly; if friendly they may join your team bringing more strength, magical ability and carrying 

capability; if indifferent you could perhaps try a bribe (but beware if you offer too little) or you could sell an object and _ 

^raise yourself more cash as well as lessening your load. ^ 

But most of the effort is your own, with treasure, money, magic and strength all having a bearing on your progress. At 
times it will pay to be vicious and abandon your friends as they become weaker, or even go in fighting before characters 
show their true colours, the element of surprise using less strength. 


As can be expected in Swords and Sorcery there is a story: 

Once upon a time in a far away land called Iriuma a magical Princess cast a spell of banishment on the wicked 
Sorcerer Brogfelt. However, just before the spell took effect, Brogfelt threw his arms into the shape of changing and 
cast a return spell, changing princess Illear into a diamond. Taking the diamond with him, Brogfelt took sanctuary in 
the Dungeons of Terror amongst the various monsters and demi-humans. Here he split the diamond into four parts and 
changed each part into a different crystal. Brogfelt then hid each crystal in the dungeons never to be found again. 

. When the king heard of this he summoned all his faithful Knights to him and offered half his lands for the four crystals. 

I Sadly they all perished in the Dungeons of Terror attempting it. Now the king has offered anyone his other daughter’s 
{ hand together with half his lands. Hearing this, you set off to the king’s palace to offer your services. The king is 
astounded but nevertheless offers you a party of three prisoners from his jail, promising them a full pardon if they will 
go and aid you. As you leave the king stops you and thrusts a scrap of paper into your hand explaining that it contains 
the location of each part of the crystal from the entrance of the dungeons. It was written very shakily and stained 
<*An blood. The king says: “Let me introduce you to the three prisoners that I have volunteered to go along with you,..” 

- 1 -L- -• - «•» — «• -— - 

{ The characters you meet include a Troll, Ore, Thief, Dwarf, Goblin, Madman, Witch, Hobgoblin, Mad Monk and of course i 
the wicked wizard himself, all in fact you would expect in a magical Swords and Sorcery... _rrf 

All the objects have a use, but be careful, for picking the Dragons Tooth could be fatal; though if you find the Staff of 
Healing try and get it; an Idol of a forgotten God should be left well alone: the Ring may help you; the Magic Axe certainly 
will; the Old Book will give some clues; rub the Glass Ball; used properly the Magic Carpet will get you out of trouble; 

^ the Rolled Scroll too is useful; but not so the Fools Gold; be careful with the Bottle of Liquid; but drink the Magic Potion; 
treat the Golden Orb with care; but of course the Sword is the greatest help of all. And so it goes on, and on and on... ] 

Unlike an Adventure game, were once you have solved the plot, and it is all finished fa good, Swords and Sorcery 
generates an entirely different scenerio every time, even though totally logical! But if you really intend to see a game 
right through to the end, the game saving facility allows you to do this, playing the same scenerio, time after time, to "“H 
its end. It is so different from an Adventure, that it actually has nine-yes nine- levels of play, with the ninth having 
so many locations and of such complexity, that we would be amazed if anybody ever solved it! 

\ v ' If you are an Adventure addict, this will really spoil you! If you do not care for Adventures the activity in this unique 
game will suit you as well. It is one of those you just will not be able to leave alone... 

Though there are many Adventure games using the word Quest in their title, these are not Quests in this, the true 
sense of the word, but are just ordinary Adventures. 

^FEATURES a Map routine showing exactly where you are and where you have explored. 

FEATURES colour denoting the different aspects of the game. 

FEATURES sound on or sound off facility. 

L FEATURES entirely different scenerio for every game and all totally logical 
^ FEATURES nine levels of difficuly from fairly easy to impossible. 

/ FEATURES game saving routine to be able to replay the same scenerio. 

\ Only available from Kansas at £10.35 Vat and post paid. 

I Our normal return first class post service applies, with 
same day postage if ordered on Access or Barclaycard. 

This program carries our famed lifetime guarantee. 

Available on cassette only for BBC model B. 



* 


Kansas City Systems, Unit 3, Sutton Springs Wood, Chesterfield, S44 5XF. 
Tel. 0246 850357 
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1950 FOR AX*0 TO HAND LENX(BOX) 

1960 PROC DETAILS(AX,80X) 

1970 BX((iuiTX*2!+(CARDX>6))*BX((SUI 
TX*2)+(CARD%>6))+1 
1980 NEXT AX 
1990 NAXX*0 

2000 FOR AX*1 TO NUN BOX 
2010 IF 8X(AX)>MAXX HAXX*GX(AX) 

2020 NEXT AX 

2030 FOR AX=1 TO NUN BOX 
2040 PHX=PHX(AX):PR0C_DETAILS(PHX,8Q 
X! 

2050 IF (SUITX«2)+(CARDX>6)*HAXX OR 
(CARDX*7 AND <SUITX*2)*MAXX)AX*9 
2060 NEXT AX 
2070 =PHX 

2080 DEF PROC.CONPUTER 
2090 PRINT TAB(0,19)SPC<30) 

2100 GO.POSX=FN_CONPUTER 
2110 COLOUR 3 

2120 IF SO P0SX=-1 PRINT TAB(B,19)"I 
could not go*;sBX=FN DEAL(1)sBOTO 21 
60 

2130 PROC DETAILS(60 P0SX,1) 

2140 PRINT TAB(13-(LEN(CARD$)/2),19) 
"I played *;CARD$; 

2150 PROC PLAY(GQ.PQSX) 

2160 COLOUR 128:COLOUR 3 
2170 PRINT TAB(25,23)|HAND_LEN2(1)+1 
.« * 

2180 COLOUR 130 
2190 AX*INKEY(DELAYX) 

2200 B0X=0 
2210 ENDPROC 
2220 DEF FN.END 
2230 COLOUR 3 

2240 IF HAND LENX(0)=-1 PRINT TAB131 
,3)SPC(9);TAb7o, 19)* Congratulation 
s, you win":SC0RE0%=SC0RE0X+1sSOUND 1 
,1,100,35:B0T0 2350 
2250 PRINT TAB(0,19)SPC(8)"Bad luck 
I won*SPC(8):SC0REiX*SC0RElX+i 
2260 FOR BX*8 TO 0 STEP -8 
2270 RESTORE 2420 
2280 FOR AX*l TO 5 
2290 READ NX,DX 
2300 IF AX*5 AND BX*0 DX*30 
2310 SOUND M01,2,NX+BX,DX 
2320 SOUND 4102,2,NX+BX+48,DX 
2330 SOUND 1,0,0,2 
2340 NEXT AXiNEXT BX 
2350 COLOUR 128 

2360 PRINT TAB(10+LEN(NAHE$),0)jSCOR 
EOX 

2370 PRINT TAB(18,1);SC0RE1X 
2380 FOR AX*1 TO 8:CX!AX)*0:NEXT AX 
2390 COLOUR 130 

2400 PRINT TAB<0,20)"Do you want to 


play again(Y/N)" 

2410 *FN YES NO 

2420 DATA 4,10,4,10,12,15,4,5,0,20 
2430 DEF PROC PLAY(PLAY POSX) 

2440 PROC_DETAILS(PLAY_POSX,BOX) 

2450 VDU 5 

2460 HOVE ((SUITX-l)*224)+((256-(LEN 
(CARD!)*32)/2))+16,440+(CARDX*32):PRI 
NTCARDI 
2470 VDU 4 

2480 CX((SUITX*2)+(CARDX>6))*VLUX 
2490 IF CARDX*7 CX(SUITX*2)=VLUX 
2500 FOR AX=HANDX(SOX)+PLAY_POSX TO 
HANDX(60X)+HAND_LEN%(60%)-1 
2510 ?AX*AX?1 
2520 NEXT 

2530 HAND.LENX(60X)*HAND_LENX(SOX)-1 

2540 PROC.FLIP 

2550 ENDPROC 

2560 DEF PROC.FLIP 

2570 REPEAT UNTIL ADVAL(-5)*15 

2580 SOUND 0,-12,5,0 

2590 SOUND 0,-13,4,0 

2600 SOUND 0,0,0,6 

2610 ENDPROC 

2620 DEF PROC.DIS.HAND 

2630 VDU 24,98Qj0;1279j940;sCLG 

2640 FOR AX*0 TO HAND.LENX(O) 

2650 PROC DETAILS(AX,0) 

2660 COLOUR 3 

2670 PRINT TAB(31-(AX<9),AX+3) 5 AX+lj 
CHRI(228) ; CARD* 

2680 NEXT AX 
2690 VDU 26 
2700 ENDPROC 
2710 DEF FN.YES.NO 
2720 REPEAT 
2730 A$* 8 ET$ 

2740 UNTIL A$="Y* OR A$="N" 

2750 =A$=*Y" 

2760 DEF PROC.ADVICE 
2770 80 POSX*FN COMPUTER 
2780 PROC DETAILS(60_PQSX,0) 

2790 PROC.COMMENTCI advise you to p 
lay "+CARD$,TRUE) 

2800 ENDPROC 
2810 DEF PROC SNAP 

2820 IF SX*0 OR SNUMX*0 PROC.COMMENT 
("You cannot swap hands.",FALSE).'ENDP 
ROC 

2830 TX*HANDX(0):HANDX(0)*HANDX(1):H 
ANDX(1)*TX 

2840 TX*HAND LENX(0):HAND LENX(0)*HA 
ND LENX!1):HAND.LENX(1)*TX 
2850 COLOUR 128 

2860 PRINT TAB(25,23);HAND.LENX(1)+1 
.» » 

’2870 COLOUR 130 
2880 PROC.DIS.HAND 
2890 SNUMX*SNUMX-1 


2900 COLOUR 128 
2910 COLOUR 3 

2920 PRINTTAB(21,24);SNUHX 
2930 COLOUR 130 
2940 ENDPROC 

2950 DEF PROC.INSTRUCTIONS 
2960 FOR AX*0 TO 1 

2970 VDU 31,0,AX,134,157,132,141:PR1 
NTSPCf10)"Sevens* 

2980 NEXT AX 

2990 PRINT" The object of the gate 
is to put all" 

3000 PRINT" the cards in your hand d 
own before the" 

3010 PRINT" coaputer can. You aay on 
ly lay one card"; 

3020 PRINT" down at a tiae, starting 
froa seven and"; 

3030 PRINT" going up and down to Kin 
g and Ace." 

3040 PRINT'" Your cards are displa 
yed next to a" 

3050 PRINT" nuaber, and it is this n 
uaber that you" 

3060 PRINT" enter to play the card. 

If you cannot" 

3070 PRINT" go type ""C" and you wi 
11 be dealt a* 

3080 PRINT" card." 

3090 PRINT" If you want advice on 
which card to" 

3100 PRINT" play type "A"" and you 
will be told." 

3110 PRINT" If you wish, you can c 
hose to swap" 

3120 PRINT" your hand with the coapu 
ter, but only" 

3130 PRINT" two tiaes during the gaa 
e." 

3140 *FX15 
3150 *FX4 1 

3160 VDU 23;10,96,0;0;0; 

3170 PRINTTAB(1,20)"Please type in y 
our naae «19 letters)" 

3180 INPUT TAB<1,21)SPC(40)TAB(1,21) 
NAME! 

3190 NANE$*LEFT*(NAHE*,18) 

3200 PRINTTAB(1,20)"Please type how 
long aessages are to be"; 

3210 PRINT" displayed for (in second 
s) " 

3220 INPUTTAB(2B,2i)SPC(12)TAB(28,21 
)At 

3230 DELAYX=VAL(A$)*100 
3240 PRINTTAB(l,20)"Do want to be ab 
le to swap your hand "; 

3250 PRINT" with the coaputer. (Y/N) 
•;SPC(15);TAB(26,21); 

3260 SX=FN_YES_NO 
3270 ENDPROC 



j 
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THIS version of cribbage pits one 
player against the BBC Micro. For 
those unfamiliar with crib, the object of 
the game is to “peg” your way round a 
board by scoring points. There are two 
main ways to score. 

Firstly you can score points as you 
and your opponent play your cards 
alternately - this is the play. 

Secondly, after the play, you lay 
down your hand and gain points 
according to the various scoring 
combinations you hold - this is the lay. 

All cards are worth their face value 
with jack, queen and king counting ten. 
Ace is low. 

Play alternates between player and 
computer, with the dealer of the first 
game being picked at random. In 
practice the micro deals the card. 

However the deal is considered to 
alternate between micro and player, the 
non-dealer having to lay the first card in 
a game. 

The player is dealt six cards, from 
which he has to retain four for his hand. 
The two cards he discards are thrown 
into the “box” or “crib”. These, together 
with the computer’s discards, form an 
extra hand. 

This hand is scored at the lay and the 
points awarded to the dealer - that is, 
this extra hand alternates between 
player and micro. 

Thus when selecting discards you 
have to bear in mind whose box it is. 
You must also try to ensure that the 
hand you are left with is balanced 
enough to provide points in both play 
and lay. 

Once the discards have been made a 
starter card is dealt from the pack. This 
is the “turn up”. If it’s a jack, the dealer 
scores two points. This turn up plays no 
further part in the play, but is considered 
to be an integral part of the hand during 
the lay. 

The non-dealer then plays a card 
followed by the dealer, the total points 
value of the cards being added. Play 
continues alternately until the total is 
either exactly 31, or neither player can 
play a card without exceeding that value 
- or until all the cards in the hand have 
been played. 

If, after your turn, your opponent 
cannot go, you are still entitled to if you 
can do so legally, scoring as normal. 

If a position is reached where neither 
player can go, that round of play is 
finished and a new one started with the 
remaining cards, the player who first 
failed to play a card going first. 

The last player to play a card in a 
round scores points: two if he reaches 
31 exactly, otherwise one. However 



Peg your way round ALAN FARMAN's 
version of the classic card game 


there are also other points to be won 
during the play. 

You score two points if you bring the 
total to 15, or if your card forms a pair 
with the previous card. If your card 
forms three the same you score six, and 
all four identical scores 12. 

Also, if the card you play forms a run 
of three or more (including your 
opponent’s cards), you score one for 
each card in the run. Note that they 
don’t have to be in order. If you play a 
four then the micro plays a six and you 
then play a five, you score three for the 

run, even though it’s 4, 6, 5. 

Incidentally, if your four had been the 
first card in the round, you would score 
five, since the total would be 15 — you 
score two for that and three for the run. 

All you have to hope is that the micro 
doesn’t have a three - then again you 
might have a two to follow it... 

When all the cards have been played 
they are laid out and the cards in each 
hand - together with the turn up - are 
scored. 

You score two for every combination 
of 15 you can find in your hand, and 

PROCEDURES 

PROCINIT 


Rules. 

PROCTAPE 


Chains game. 

PROCget 


Pause control. 

PROCT 


Time delay. 

PROC_vdu_chars 


Sets up characters. 

PROCplayname. 


Player’s name. 

PROCBOARD 


Draws board. 

PROCDEALER 


Randomly decides first dealer. 

PROC_varis 


Sets up variables. 

PROCSHUFFLE 


Shuffles cards. 

PROCCARDS 


Draws cards on screen. 

PROCALLOCATE 


Allocates CARDS type to numeric. 
CARD% for calculation purposes. 

PROCSTARTER 


Draws starter or crib card. 

PROCSTARTERBACK 


Draws starter card back. 

PROCBOXCARD 


Allocates the four cards to the crib. 

PROCWHOLAY 


Sorts out who is to lay first card. 

PROCGAME 


Plays the game. 

PROCCARDFRONT 


Draws front of card. 

PROCCARDBACK 


Draws back of card. 

PROCUP & PROCDOWN 


Moves box character about screen. 

PROCNUMBER 


Converts random number into card number 
used when sorting out dealer. 

PROCsound 


Makes a sound. 

PROCPACK 


Reads 52 cards into an array and allocates 
suit. 

PROCPLAYERCARD 


Draws player’s cards on screen. 

PROCcardcol 


Sorts out player’s suit colour. 

PROCCPBEST & 


Sorts out computer’s best or second best cards 

PROCCPSECBT 


according to whether Level 1 or 2 is being 
played. 

PROCcompsc & 


Draws scores on screen for both computer 

PROCplaysc 


and player as play proceeds. 

PROCGAMETOT 


Displays game score. 

iff !> 
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similarly for every pair. Three of a kind 
count six, and four count 12. Runs of 
three or more count one for each card 
involved. 

If all four cards in your hand are the 
same suit you score four for the flush. 


(In the box, you need all four cards in 
the hand plus the turn up to be of the 
same suit for a flush - and you score five 
for it.) 

Also, if you have a jack in your hand 
of the same suit as the turn up, you score 


"1 


PROCCOMPCHECK 

PROC(S)—FIVECARD, 

FOURCARD, THREECARD, 
TWOCARD, SAME, 

PAIR, JACK 
PROCSWOP 

PROCKEEP 

PROCCOMPGAMECARD 

PROCCOMPFIRSTMOVE 

PROCPLAYERMOVE 

PROCCOMPNEXTMOVE 

PROCODSANSDS 

PROCPLAYCARDGONE/ 

COMPCARDGONE 

PROCFACECARD 

PROCPLAYFIRST/ 

COMPFIRST 

PROCCLEARUP 

PROCLAY 

PROCPLAYCARDHAND 


PROCcorner 


PROC WINNER 
PROCBOX 

PROCPLCOSCCHECK 

PROCCOMPBOX 

PROCscore 


PROCblank_score 


Part of computer's search routine to find best 
cards. 

These procedures search for runs, 15s, 
flushes, pairs etc. 


Swops computer/player cards to enable 
search for runs. 

Decides which four cards computer should 
keep. 

Computer plays with these cards. 

Plays computer’s first move (only if computer 
goes first). 

Plays player’s moves. 

Plays computer’s subsequent moves. 

Clears up a bit of logic. 

Removes cards from game screen. 

Prints card face. 

Decides who scores first, displays cards again 
and scores. 

Lays a card and sorts out specific variables. 
Lays a card in CLEARUP above. 
Re-allocates player’s cards before game 
commences; enables player’s scoring to be 
carried out by the computer. 

Prints arrow character when scoreboard turns 
corner (useful on B/W sets). 

Declares winner. 

Displays boxcards. 

Part of score checking routine. 

Sorts out boxcards. 

Shows total score held by each player at the 
end of each hand. 

Removes total score from game board. 



\ 


“one for his nob”. 

The non-dealer scores his lay down 
first, followed by the dealer, who then 
also totals his box. This is quite 
important, as it lets the non-dealer have 
first chance of pegging out - that is, 
pegging his way around the scoring 
board twice. 

There are two levels of play. At level 
one, the computer has limited search 
facilities and this level should be used to 
learn the game. 

At level two a full search of any four 
combinations from six cards is carried 
out, making it suitable for the more 
experienced player. 

10 REM •« CRIBBAGE *** N 

20 REM * Alan Farman * 

30 REM *(c) Micro User* 

40 REM *** 1984 *** 

50 ON ERROR GOTO 2380 
60 DIM CD$(18),B0X$IS),CDX(18),CMC 
DX(18),KP%(3),XIX(4),X2X(4),GoneX(6), 
run%(9):MQDE7s PROCVD;PROCMNs saed%=!RN 
Df-TIMEl/LENiNAME*)! 

70 M0DE5:PRQCBD;PR0CDL!Cm=976sPX 
MX s 976:CYMX=600sPYMX=472:REPEAT;PRQCV 
AiPROCSHiPROCCDdl iPROCALU ,7) sPROCST 
CMi PR0CSB: PR0CB0; PR0CWH: PROCSMs UNT 
IL FALSE 

80 DEF PRQCVD;VDU23,226,16,32,126, 
33,17,1,1,126,23,227,0,0,60,36,36,60, 
0,0,23,228,0,126,66,66,66,66,126,0,23 
,229,255,129,129,129,129,129,129,255, 
23,230,2,4,8,16,62,62,62,62,23,231,54 
,127,127,127,62,28,8,0 

90 VDU23,232,8,28,62,127,127,127,2 
8,62,23,233,8,28,62,127,62,28,8,0,23, 
234,8,28,28,107,127,107,8,28;HEARTt=C 
HR$231:SPADE$=CHR$232sDIAM0NDMCHR$23 
3;CLUB$=CHRt234;STt=STRING$(59,“ MsS 
Tlt=STRING${19,* MsENDPRQC 

100 DEF PR0CVAsnexcd%=0!picdpo%=l!c 
pnogo%=0!pinogoX®0!fiPtn%=0:pairX*0!j 
ackX=0:coX“0:piX=0s npairX=0s ne«noX®31 
:nX=0:pointX=0!cpfinX^OsplfinX^Osplco 
ntX=0s cpprecdX=0;plprecdX=0!totalX=0s 
corpX=l;ftprX=0:twoetcX=0:thiscdX*0;1 
aidX=0 

110 gotrunX=0s plcorunX=0:apairX=0jc 
oprX^Oipipr%=0s F0RIX=lTQ6s GoneX(IX)=0 
:NEXT;VDU28,0,3,19,0,23;11,0;0;0;0;EN 
DPR0C 

120 DEF PR0CCF(XX,YX)iVDU25,4,XX| YX 
,*25,5,XX; (YX+150)|25,5,(XX+10Q)j(YX+1 
50);25,85,XX;YX;25,5,(XX+100);YX;25,8 
5, (XX+1005 j(YX+150);:ENDPR0C 
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130 DEF PROCBDsVDU5,18,0,3:F0RYX=44 
0TD600STEP32:F0RXX=4BT0976STEP32!IFYX 
<*472 0RY%>=548THENM0VEX%,YX: PR INI“," 
140 NEXT:NEXT!VDU1B,0,3,25,4,32;384 
;25,5,32;608;25,5,1040;608; 25,5,1040; 
384; 25,5,32;384;25,4,384;488;18,0,liP 
RINT"cosputerVDU18,0,2:MOVE 640-1(L 
EN(NANE$)/2)*64),320:PRINT NAME$;VDU1 
B,0,3,4:ENDPROC 

150 DEF PROCST(n*):VDU5,18,0,3,25,4 
,1079;421;25,5,1079;571;25,5,1179; 571 
;25,85,1079;421;25,5,1179;421;25,85,1 
179;571;25,4,1100;504;18,0,0:PRINT n* 
:VDU18,0,3,4:ENDPROC 
140 DEF PROCCK1XX,YX)sVDU5,18,0,1,2 
5,4,XX;YX;25,5,(XX+100); (Y%+150);25,5 
,XX;(YX+150);25,5,X%jYX;25,5,(XX+lOO) 

;Y%;25,5,(XX+100);(YX+150);25,4,1XX+5 
0); (YX+150)j25,5,XX;(YX+75);25,4,<XX+ 
100 )5 <YX+75);25,5,(XX+50)j YXj18,0,3,4 
:ENDPROC 

170 DEF PROCDL:PROCST(" *):PR0CSB:C 
QL0UR3:PRINT TAB(0,1)"First Jack For 
crib":VDU7:PROCT <1.5);REPEAT:PROCUP:P 
ROCNU:PROCST(Nt) 

180 IFNf="J"THENPROCT(.5):dealX=1:D 
EALER$="cofsputer": S0T0210ELSEPR0CT (. 5 

) 

190 PROCDN:PROCNU:PROCST CN$) 

200 IFN$= M J"THENPROCT(.5):dealX=-l: 
DEALER$=NAME$!S0T021OELSEPROCT1,5) 

210 UNTILN$="J"iPROCsdsPROCST(" “): 
PROCSB t PRINTTAB(0,0);ST*:COLOUR1s PRIN 
TTAB110-(LEN(DEALER*)/2),0);DEALER$:C 
0L0UR2:PRINTTAB(0,2);"has the First c 
rib!“;s PROCT(4):ENDPROC 
220 DEF PROCSBsPROCCK(1079,421):END 
PROC 

230 DEF PROCNU:JX=RND(13)iIFJX=1THE 
NN*="A" 

240 IFJX>1ANDJX<10THENN*=STR$(JX) 

250 IFJX=10THENN$="T" 

240 IFJX=11THENN$="J M 
270 IFJX=12THENN*=“Q" 

280 IFJX=13THENN*=*K" 

290 ENDPROC 

300 DEF PROCALFaX,bX):FORNX=aXTObX: 
1FRIGHT*(CD*(NX), 1)="A"THENCDX FNX) =1: 
CHCDX(NX)=1 

310 IFRIGHT*(CD*(NX), 1)= M T"THENCDX1 
NX)=10:CHCDX <NX)=10 
320 1FRIGHT*(CDifNX),1)="J"THENCDX( 
NX)=10:CHCDX(NX)=11 
330 IFRI 6 HT*(CD*(NX),1)="Q B THENCDX( 
NX)=10:CHCDX(NX)=12 
340 IFRIGHT*!CD*(NX),1!="K*THENCDX( 
NX)=10:CHCDX(NX)=13 
350 IFVAL(RIGHTS(CD$(NX),1))>1ANDVA 


L(RIGHT*(CD*(NX),1))<10THENCDX(NX)=VA 
L(RI 6 HT*(CD*(NX),1)):CHCDX(NX)=VAL(RI 
GHTf(CD$(NX) ,1)) 

340 NEXT:ENDPROC 

370 DEF PROCSH:PRINTTAB(0,0)ST$:COL 
0UR1:PRINTTAB<2,0)Please wait -":C 
0L0UR2:PRINTTAB(2,2)"while I shuttle" 
;:VDU7,18,0,0:PROCCF(1079,421):PROCT( 
1):NNX=1:REPEAT 

380 copy=0:JX=1:tX=0:TX=RND(52):RES 
TORE:REPEAT:READPK$:tX=tX+1:UNTILtX=T 
X:CS*=LEFT$ <PK$,1):CN*=RIGHT#(PK*,1) 
390 IFCS*=*H"THENPK*=HEART*+CN* 

400 IFCS#=*S"THENPK$=SPADE$+CN$ 

410 IFCS$=*D"THENPK$=DIAMOND$+CN$ 
420 IFCS$=*C"THENPKI=CLUB*+CN$ 

430 REPEAT:CD*(NNX)=PK«:IFJX=NNXTHE 
N450 

440 IFCDt(NNX!=CDt(JX)THENcopy=l:UN 
TILcopy=l:G0T03S0 

450 JX=JX+1:UNTILJX)13:NNX=NNX+1:UN 
TILNNX>13:PRINTTAB(0,2)ST1*:COLOUR3:P 
RINTTAB(4,2)"while I deal:VDU7:PR0C 
T(1): ENDPROC 

440 DATA D9,H4,CJ,ST,CT,D4,S5,S4,CA 
,SA,D3,S9,HK,H0,H8,D8,S6,HA,C9,DT,DK, 
S3,SK,H9,H7,DA,SJ,C3,SQ,D5,H3,H2,C4,H 
J,H5,D2,C5,HT,C7,S8,H4,C4,C8,S7,C2,D4 
, S2 ,CK,CQ,DQ,D7,DJ 
470 DEF PROCPC(XXX):YY%=214:VDU5:PR 
OCcd(picdpoX):GCOLO,CX:M0VEXXX+20,YYX 
-56:PRINT;LEFT*(CD*(picdpoX),1):MOVEX 
XX+25,YYX:PRINT;RIGHT*(CD*(picdpoX),1 
):GCOLO,2:MOVEXXX+25,44:PRINT; picdpoX 
:plcdpoX=plcdpoX+l:VDU4:ENDPROC 
480 DEF PROCBO:PRINTTAB(0,0)ST*:COL 
0UR3:PRINTTAB(0,0)"Put 2 cards in cri 
b":COLOUR!:VD(J7:PRINTTAB(0,2! “Card No 
.1 ";:INPUTNol:IFNal<lORNol>4THEN4 

80 

490 VDU5,18,0,0:yX=94:phX=( (Nol*20 
0)-200)+80:PROCCF(pixX,yX):VDU25,4,(p 
lxX+80);44;127,4 

500 PRINTTAB(0,2)ST1*:C0L0UR2:VDU7: 
PRINTTAB(0,2)"Card No.2 :- ”;:INPUTNo 
2:IFNo2=Nol 0RNo2<l 0RNo2)6THENPRINTT 
AB(0,2)STR1NG*(19," "):GDT0500 
510 VDU5,18,0,0:yX=94:p2xX=(!No2*20 
0)-200)+80:PROCCF(p2xX,yX):VDU25,4,(p 
2xX^80);64;127,4,17,1 
520 GoneX(Nol)=99:GoneX <No2)=99:PRI 
NTTAB(0,0)ST*:PRINTTAB(0,0)"PIease wa 
it while I":C0L0UR2:PRINT:PRINT" thro 
w nine in too";:PROCCP 
530 BOX* 11)=CD*(Nol):BOX*(2)=CD*(No 
2):BOX*(5)=CD* < 7):CD*(18)=CD*(7):CDX( 
18)=CDX(7):CHCDX(18)=CHCDX(7) 

540 PRINTTAB<0,0)ST*iPRINTTAB(1,1)" 
OK, I have chosen.":VDU7,5,18,0,0:yX= 
736:c1xX=((NUM1*200)-200)+80:PROCCF(c 



lxX, yX): c2xX= < (NUI12«200) -200)+80: PROC 
CF(c2xX,yX):PROCT(1):VDU4:ENDPR0C 
550 DEF PROCWH: IFdealXO-lTHENSTART 
*=NAME* ELSESTART*=“co(iputer“ 

540 PRINTTAB(0,0)ST*:VDU7:C0L0UR2:P 
RINTTAB(4,l)"Starter card";:PROCT<1): 
VDU5,18,0,3:PROCST(" "):VDU5,25,4,110 
0;534;:IFLEFT*(CD*(7),1)=HEART* ORLEF 
T*(CD*(7),1)=DIAHOND*THENGCOLO,1 ELSE 
GCOLO,0 

570 PRINTR1GHT*(CD*(7),1):VDU25,4,1 
095;488;:PRINTLEFT*(CD$(7),1):VDU4:PR 
INTTAB(0,0)STt:IFCHCDX(7)=1ITHENPROCs 
d:PRINTTAB(0,0)ST*:PRINTTAB(0,1)"Two 
For his heelsI B :PROCT(2):jackX=l 
580 IFdealX=1ANDjackX=lTHENPROCcs<2 
) ELSE IFdealX=TRUE ANDjackX=lTHENPRO 
Cps(2):jackX=0 

590 VDU7,5,18,0,2,25,4,80; 512;: PR IN 
T“Ga#e total=":PROCGT:VDU4:ENDPROC 
400 DEF PROCGT:VDU5,1B,0,0,25,4,920 
;512; 127,127,18,0,1,25,4,800;512;: PRI 
NT;total X:VDU4:ENDPROC 
410 DEF PROCSE:AX= 8 :BX=11:FQRQX=1T0 
3:PROCAL(AX,BX):PROCSW(AX,BX): PROCCC( 
QX+7,0X+10):KPX(SX)=sc X:PROCAL(AX,BX) 
:AX=AX+1:BX=BX+1:NEXT:PROCKP:IFkpX=OT 
HENkpX=RND(3) 

420 lFkpX=lTHENB0Xt(3!=CD*!12!:BOX* 
(4)=CD*(13):NUM1=5:NUM2=6:AX=8:BX=11 
630 lFkpX=2THENB0X*(3!=CD*!8):BOX*( 
4)=CD*(13):NUM1=1:NUM2=6:AX=9:BX=12 
640 IFkpX=3THENB0X*(3)=CD*i8);BOX*( 
4)=CD*(9):NUM1=1:NUM2=2:AX=10:BX=13 
650 ENDPROC 

660 DEF PROCT(t):FORT=1T01500*t:NEX 
T:ENDPROC 

670 DEF PROCCC(BX,TX):FVR=0:FRR=0:s 
cX=0:PROCFR(BX,TX):PROCTH(BX,TX):PROC 
TW(BX,TX):PROCPR(BX,TX):PROCSM(BX,TX) 
sENDPROC 

6B0 DEF PROCFV(BX,TX):LOCALHX,IX,JX 
,KX,LX:F0RHX=BXT0TX-4:F0RIX=HX+1T0TX- 
3:FORJX=IX+1T0TX-2:F0RKX=JX+1TOTX-l:F 
ORLX=KX+1TOTX 

690 IFCHCDX(HX>+l=CHCDX(IX)ANDCHCDX 
FIX)+1=CHCDX(JX)ANDCHCDX(JX)+1=CHCDX( 
KX > ANDCHCDX(KX)+1=CHCDX (LX)THENsc X=sc 
X+5:FVR=1:FRR=1 

700 IFCDX(HX)+CDX(IX)+CDX<JX)+CDX(K 
X)+CDX(LX)=15THENscX=scX+2 
710 NEXT:NEXT:NEXT:NEXT:NEXT:ENDPRO 
C 

720 DEF PROCFR(BX,TX):LOCALHX,IX,JX 
,KX:F0RHX=BXT0TX-3:F0RIX=HX+1TOTX-2:F 
0RJX=IX+1T0TX-1:F0RKX=JX+1TQTX 
730 IFFVR=0THEN IFCHCDX(HX)+1=CHCDX 
(IX!ANDCHCDX(IX)+1=CHCDXiJX)ANDCHCDX( 
JX)+1=CHCDX(KX)THENscX=scX+4:FRR=1 
740 IFCDX(HX)+CDX(IX)+CDX(JX)+CDX(K 
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X)=15THENscX=scX+2 
750 NEXTiNEXTINEXTiNEXTtENDPROC 
760 DEF PROCTH<BZ,T%)!LOCALHX,IX,J% 
:FORHX-BXTDT1-2 * FOR11>HX+1T0T1-1 £ FORJ 
X*1X+1TQTX 

770 IFFRR=OTHEN IFCHCDZ(HI>+i*CHCDZ 
(IX)ANDCHCDX(1%)+1=CHCD%(JX)THENscX=s 
c%+3 

780 IFCDX(HX> +CD%(I%> +CDX(J%>=15THE 
NscX=scX+2 

790 NEXT:NEXTiNEXTiENDPROC 
800 DEF PROCTW(B%,T%)sLOCALHX,IXsFQ 
RHX=B%T0T%-1:F0RIX=HX+1T0T% 

810 IFCDX(HX)+CDX(IX!=15THENsc%=scX 

+2 

820 IFtotalX+CDX (HX) = 15THEN-fi-ftnX=H 
7. 

830 IFtotalX+CDX(IX)=15THEN-fi-ftnX=I 
7, 

840 NEXT:NEXT:ENDPROC 
850 DEF PROCPR(B%,T%):LOCALHX,IX:FO 
RHX=BXT0TX-1:F0RIX=HX+1TOTX 
860 IFCHCDZ(HX) s CHCOX(IX)THENscX=sc 
X+2:ftpr%=HX 

870 IFCHCDX(HX)=CHCDX(nX)THENpairX= 
HX 

880 IFCHCDX <IX)=CHCDX(nX)THENpairX= 

IX 

890 NEXT:NEXT!ENDPROC 
900 DEF PROCSM(BX,TX):saaeX=0:LOCAL 
IX:F0RIX-BXT0TX-2:IFLEFT$(CD$(IX),1)= 
LEFT$(CD$(IX+1),1)THENsaaeX=sa»eX+l 
910 NEXT:IFsa«eX=3THENscX=scX+4 
920 IFsa«eX=3ANDLEFT$(CD$(TX),1)=IE 
FT$(C0$(BX),1)THENscX=scX+l:ENDPROC E 
LSEENDPROC 

930 DEF PROCJK(BX,TX):LOCALIX:FORIX 
=8XT0TX-1 

940 IFRIGHTKCDKIX), l)*"J*flNDLEFT4 

(CDKTX) ,1)=LEFTI(CDI(IX) ,l)THEN«cX=s 
cX+1 

950 NEXT:ENDPROC 

960 DEF PROCsd:F0RS=50T0100:S0UND1, 
-10,S,.7:NEXT:ENDPROC 
970 DEF PROCSW(bX,tX):LQCALNX,NX:FQ 
RMX=bXTOtX-1:F0RNX=MX+1TOtX:IFCHCDX(M 
X)<=CHCDX(NX)THEN990 
980 te*pX=CHCDX(MX):CHCDX(HX)=CHCDX 
(NX):CHCDX(NX)=tenpX 
990 NEXT:NEXT:ENDPROC 
1000 DEF PROCKP:nkX=0:kpX=0:F0RIX=1T 
03:IFKPX(IX)>nkXTHENnkX=KPX(IX):kpX=I 

X 

1010 NEXTiENDPROC 

1020 DEF PROCSM:PROCAL(AX,BX):PR0CC6 
(AX,BX):laidX=l:IFdealX=-lTHENPROCFM: 

IaidX=2 ELSEPROCPM:1aidX-2:PROCNM:1ai 
dX=3 

1030 PR0CPM:npairX=0:IFplnogoX=0THEN 
laidXslaidX+1:IFlaidX>3THENPRQCrn:IFg 



otrunX>=3ANDgotrunX>plcorunXTHENPROCp 
s (gotrunX):plcorunX=gotrunX 
1040 IFtotalX=31THENcorpX=2:S0T01140 
1050 IFcpnogoX=OANDplnogoX=lTHENcorp 
X=1:G0T01070 

1060 IFtotalX<31PR0C0D:IFpointX=lTHE 
NPROCps(1):pointX=0:S0T01140 
1070 PROCNM:npairX=0:IFcpnogoX=OTHEN 
laxdX=laidX+l;IFlaidX>3THENPR0Crn:IFg 
otrunX>=3ANDgotrunX>plcorunXTHENPROCc 
s(gotrunX):picorunX=gotrunX 
1080 IFtotalX=31THENcorpX=l:S0T01140 
1090 IFp1%=4ANDcpnogo%=lTHEN1060 
1100 IFplnogoX=OANDcpnogo%=lTHENcorp 
%=2:GOTO 1120 

1110 IFtotalX<31PR0C0D:IFpointX=iTHE 
NPROCcs(1):pointX=0 
1120 IFp1nogoX=OANDplXC4THEN1030 
1130 IFcpnogoX*OANDcoX<4THEN1070 
1140 PROCPG:PROCGN:pinogoX=0:cpnogoX 
=0:plcorunX=0:1aidX=l:apair%=0:copr%= 
0:piprX=0:CHCDX(nX)=0:npairX=l:total X 
=0:PR0C8T:F0RCX=1T08:runX(CX)=0:NEXT 
1150 IFplX=4ANDcoX=4THENcorpX=3 
1160 ONcorpX G0T01030,1070,1170 
1170 PROCPG:PROCGN:C0LQUR3:PRINTTAB! 
0,0)ST$:PRINTTAB(3,0)“All cards laid" 
:C0L0UR1:PRINTTAB(5,2!scores V 
DU7:PROCT(2):PRINTTAB(0,0)ST4:plcdpoX 
=1:PR0CCD(0):SCOLO,0 
1180 PROCCF(plxX,96):VDU5,25,4,(plxX 
+80)j 64;127:PROCCF(p2x%,96):VDU25,4,1 
p2xX+80)i64j127,4:PROCFC(14,848):PROC 
T(l!:IFdealX=lTHENPROCPF ELSEPROCCT 
1190 totalX=0:PROCBL:PRINTTAB(0,0)ST 


t:CQLQUR3:PRINTTAB(0,1)“Next gaae sta 
rting";:VDU7:PROCRC:VDU5,18,0,0: PROCC 
F (1079,421):VDU4:IFdealX=-1THENPRQCUP 
ELSEPROCDN 

1200 PROCT (2): deal 7,=-dealX: ENDPROC 
1210 DEF PR0CC8(aX,bX):IFaX*8 cX=6:0 
7.=13 

1220 IF aX=9 c7.=5:0X=12 

1230 IF aX=10 cX=4:0X=ll 

1240 F0RIX=aXT0bX:CD#(IX+cX)*CD$(IX) 

:CDX(IX+cX)=CDX <IX):CHCDX(IX+cX)=CHCD 
X(IX):NEXT:ENDPROC 

1250 DEF PROCFM:ne«noX=newrtoX+1: COLO 
UR1:VDU7:PRINTTAB(0,0)ST#:PRINTTAB(1, 

1)"Computer to move";:PROCT(1):checkX 
=0:f irstX= 14: REPEAT: IFCDX (first XX5TH 
ENrunX(1aidX)=CHCDX(firstX):PROCCL(fi 
rstX):checkX=l:firstX=17 
1260 firstXsfirstX+lsUNTIL firstX>17 
: IFcheckX=lTHENENDPROC 
1270 ftprX=Q:PROCPR(14,17):IFftprX>0 
THENrunX(1aidX)=CHCDX(t tprX):PROCCL(F 
tpr%):ENDPROC 

1280 LX=RND!4)+13:runX(laidX)=CHCDX( 
LX):PROCCL(LX):ENDPROC 
1290 DEF PROCNM: IFcoXM OR cpnogoX=l 
THENENDPROC 

1300 COLOURS:VD07:PRINTTAB(0,0!ST4:P 
RINTTAB<1,1)“Computer to inove";:PROCT 
(l):newnoX=newnaX+l:nexcdX=0:fiftnX=0 
:pairX=0:thiscdX=cpprecdX:prdrpX=0:IF 
totalX<15THENPR0CTW(14,17) ELSE1330 
1310 IFfiftn?.OOTHENrunX(laidX)=CHCD 

- y 
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STEV (0438) 721936 


DEPT. CGI, 

18 HAZELMERE RD, 
STEVENAGE, HERTS 
SG28RX. 


QUAL-SOFT 


NEW GENERATION LEISURE SOFTWARE 

Q.UAL-SOFT comments: In 1982/83 it was only necessary to throw together a few M/C code routines, record 
them on a cassette, produce a flashy cassette insert, and it sold. But as we approach 1 985, BBC users have become 
much more discriminating in their choice of software. Customers demand something more satisfying than a few 
hours of high adrenaline action. They demand, not hours, but tens of hours, even a hundred hours plus, of 
"playability". They demand that the program challenges their intellect and not just their reflexes. They demand 
QUALITY games. For the 84/85 season; for these customers, QUAL-SOFT is proud to offer these games: 

"DIVISION ONE ’85” and "SOCCER SUPREMO" are direct descendants of the 1 983 game "LEAGUE DIVISION 
ONE", but they are a significant advance on what was described as "by far the best game for the BBC Micro". They 
are soccer management SIMULATIONS! Soccer management is about ASSESSMENT; assessment of the 
opposition strengths, of your players and their skills, of the effectiveness of the teams you assemble, of the value of 
transfer listed players, of the potential of your own youngsters. Soccer management is about EXPERIMENTATION; 
experimentation with players, with blends of players, with team formations, with tactical ploys. QUAL-SOFT's unique 
soccer match simulation, with tackles, passes, shots, saves etc. all simulated within your micro, and the results 
displayed in graphical form on your screen, allows ASSESSMENT and EXPERIMENTATION to be carried out. The 
result is a 2ND GENERATION soccer management SIMULATION, not an exercise in mental 
arithmetic!!! 


BBC B' 
(all OS) 


DIVISION ONE 85 


TAPE £9.95 
DISC £12.95 
(all inc.) 


This is an uncompromising strategy/tactics simulation, it will test to the full your knowledge of the game and your 
ability to use it to build a winning side. As described above, your ability to experiment and judge the results are 
paramount. Injuries, suspensions, long term "form" changes, short term "form" fluctuations, will all conspire to 
confuse and defeat you. You will also meet the prblems of financial limitations as you choose between the 33 players 
available to you. You have a contract for 5 seasons, which will be terminated if your side is relegated. This game is the 
supreme test of your managerial skills, short of the real thing. 


ELECTRON 
BBC B' (all OS) 


SOCCER SUPREMO 


TAPE £9.95 
DISC £12.95 
(all inc.) 


Soccer Supremo has been improved over the original game in the direction of a much more realistic "3D", 22 MAN, 
FULL PITCH match simulation for each of your games. The game is still a significant challenge to your managerial 
skills, but with greater emphasis on enjoyment and entertainment. But with 30 players to choose from, restricted 
finances, and just a 5 season contract, the 1st Division Championship is not an easy task. 

COMBO OFFER. Telephone conversations, and orders, have shown that customers find it very diffcult to choose 
between the two games. Our COMBO tape/disc offers you both games for just the price of one plus £3. £1 2.95 or 
£15.95. 

PREVIOUS OWNERS. Send in your ORIGINAL tape/disc of LEAGUE DIVISION ONE, with manuals, and receive £7 
for your tape or £9 for your disc, discount against any order for the above game(s). 


BBC B' 
(all OS) 


PORTFOLIO 


TAPE £9.95 
DISC £12.95 
(all inc.) 


The most popular indoor games have always been multi-player board games, and yet designers have insisted on 
producing single player "me and my micro" computer games. In the USA the balance has already shifted away from 
the "arcade mentality" towards multi-player programs. PORTFOLIO is ah investment game for 1 -4 players, or teams 
of players. Each player/team begins with £1,000 and invests his money in a variety of companies against a 
background of continually changing international, national and commercial news. The news items affect the share 
values of the companies in a variety of different ways, and the players must shift their money around to maximise 
their investments; maybe even to become a millionaire. 

The game is an ideal family game, or perfect in the classroom with a high pupil/micro ratio. It's suitable for 12 years 
old and above, though younger do enjoy the game with some help from their friends, and in this game, competitors. 
For the adult we have made some of our news items somewhat cryptic, occasionally even red herrings, to really make 
them think about the effect on share values. Because we call it a family game we have tried to see that there is 
something in it for all members of the family. Teachers can even tailor the news items to suit the capabilities of the 
pupils. 

So why not set your Beeb on the coffee table, connect it to the TV set and play against the rest of the family or your 
friends on these cold, wet winter nights that are on us. It might even bring back the art of conversation (as against 
BASIC statements). 


TAPE DISC 

£9.95 □ DIVISION ONE'85' □ £12.95 

£9.95 □ SOCCER SUPREMO □ £12.95 

£12.95 □ COMBO, DIV.1+SS □ £15.95 

£9.95 □ PORTFOLIO □ £12.95 

Soccer Supremo: ELECTRON or BBC 


Name: .. 
Address: 


Card No: 


All orders DIRECT SALE. 
Orders by post delivered 
in 3/4 working days. 
ACCESS telephone 
authorisation 1/2 days. 
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X(fiftnX):PRQCCL(fiFtnX!:PR0Ccs(2i EL 
SE1330: IFCD$(fiftnX)=CD$(nX)THENPRQCc 
s(2) 

1320 S0TQ1430 

1330 PROCPR(14,17) : IFpairXOQTHEN IF 
totalX+CD%(pair%)< =31THENrunX U aid%) = 
CHCDX(pair%)j PROCCL(pairX)s PROCcs(2): 
apairX=apairX+l:prdrpX=lELS£apairX=0 
1340 IFapair%=2THENPR0Ccs(4)ELSE IFa 
pairX=3THENPR0Ccs(10):apairX=0 
1350 IFprdrpX=lTHEN1430 
1360 IFlaidX<*2THEN1400ELSEfindrunX= 
0s1p%=14 

1370 REPEAT:IFCHCDX(1p%)<31THENrun%( 
laidX)=CHCDX!lpX) ELSE1390 
1380 PROCrn:IFqotrunX>=3THEN IFtotal 
X+CDX(lpXK=31THENrunX(laidX)=CHCDX(l 
pX):PROCCLilpX)s1pX=17:FindrunX=l 
1390 lpX=lpX+l:UNTILip‘/.)17:IFfindrun 
X=1THEN1430 

1400 FGRIX=14TQ17: IFtotal X+CDXUXK® 
31THENnexcdX=IX:1X=17 
1410 NEXT: IFnexcdXOOTHENrunXUaidX) 
=CHCDX(nexcdX!;PROCCL(nexcdX):G0T0143 
0 

1420 VDU4,7,18,0,1:PRINTTAB(0,0!STI: 
PRINTTABC1,1)"Sorry - can't go! H :newn 
oX=newnoX-!:cpnogoX=l:PR0CT!l):ENDPRD 
C 

1430 IFplnogoX=lANDnpair%=0ANDR16HT$ 
(CD$lthiscdX),l)=RI6HTt(CDI(cpprecdX) 

, 1)THENPROCcs 02)!coprX=coprX+l:IFcopr 
X=2THENPR0Ccs(4) 

1440 IFplX=4ANDnpairX=0ANDpl-finX=lAN 
DRI6HTKCD4(thiscdX) ,l)=RIGHT#(CD$(cp 
precdX),1)THENPROCcs(2):coprX=coprX+1 
:IFcoprX=2THENPR0Ccs(4) 

1450 IFtotal%=3ITHENPRGCcs <2)scpnogo 
X=1 

1460 IFplX=4 plfinX=l 
1470 ENDPROC 

14B0 DEF PROCCL(twoetcX):total%=tota 
1X+CDX(tuostcX):PR0CLA(twoetcX,736):C 
HCDX(twoetcX)=newnoX;CDX(twoetcX)=new 
noX:X2X(coX)=twoetcX:cpprecd%=twoetcX 
;coX=coX+1sPR0CGT;ENDPROC 
1490 DEF PR0CPN: IFplX=4 ORplnogoX=lT 
HENENDPROC 

1500 PRINTTAB(0,0)ST$:VDU7,17,3:PR IN 
TTAB(8-<LEN<NAMEt)/2),0)NAME$,* sCOLOUR 
2:PRINT B to":PRINTTAB(1,1)"enter card 
nueber"sPRINT" or"j:COLOURItPRINT"'G 
:COLOUR2:PRINT*i-f can’t go";s*FX21 

,0 

1510 N$=GET$:IFN$=”G H ORN$="g"THENpln 
ogoX=l:ENDPROC 

1520 nX=VAL(N$):IFnX<l DRnX>6THEN150 

0 

V 1530 IFGoneX(nX)=99THENPRINTTAB(0,0) 


STf:COLOUR 1:PRINTTAB(0,1i"Sorry-alrea 
dy gone";:VDU7:PROCT(2!:60T01500 
1540 IFtotal%+CDX<nX5>31THENC0L0URlt 
PRINTTAB(0,0)ST$:PRINTTAB(0,1!"Sorry- 
fflore than 31";sVDU7;PRQCT(2);GQT01500 
1550 IFcoX=0THEN1590 
1560 IFnpairX s OANDRIGHT$(CD$(nX>,1) B 
RIGHT$(CB$tX2X(coX-l)),1)THENPROCps(2 
):apairX=apairX+lELSEapairX=0 
1570 IFapairX=2THENPR0Cps(4)ELSE IFa 
pairX=3THENPR0Cps(10):apair%=0 
1580 !FcoX=4ANDnpairX=OANDcpFinX=lAN 
DRIGHTt(CD$(nX),l)=RIGHT*!CD$(plprecd 
X),1)THENPROCps T 2):plprX=plprX+l:IFpl 
prX=2THENPRQCps(4) 

1590 IFcpnogoX=lANDnpairX=OANDRIGHTt 
(CD$(nX),l)=RIGHT$(CD*(plprecdX),l)TH 
ENPROCps(2):piprX=plpr%+1;IFplprX=2TH 
ENPROCps <4) 

1600 IFtotalX+CDX(nX)=15THENPR0Cps(2 

) 

1610 IFtotalX+CDX(nX)=31THENPROCps<2 
);cpnogoX=l 

1620 totalX=total%+CDX(nX);PROCGT;Xi 
X <plX)=((nX#200)-200)+80:VDU5,25,4,(X 
IX(pi X)+80);64;127,4:p1X=pIX+1;GoneX( 
n%)=99:plprecdX=nX:IFcoX=4THENrpfinX= 
1 

1630 runX (1aidX> =CHCDX(nX);ENDPROC 
1640 DEF PROCOD;IFcpnogoX=iANDplX=4 
0RcpnogoX=lANDplnogoX=lTHENpoint7.= l: E 
NBPROC 

1650 IFcoX=4 ANDplX=4 0RcoX=4 ANDpln 
ogoX=lTHENpointX=i ELSE ENDPROC 
1660 DEF PROCLA(posX,YYX) 

1670 XXX= <(CposX-OX)*200)-200)+80;VD 
U5,18,0,3;PROCCF(XXX,YYX):PROCcd(posX 
):VDU25,4,(XXX+24);(YYX+120);:6C0L0,C 
XsPRINTRIGHTKCDI(posX) ,l!sVDU25,4, (X 
XX+24);(VYX+54);;PRINTL£FTt(CD*(posX) 

, i);VDU4,18,0,3:ENDPROC 
1680 DEF PR0CPH;HHX=1;LOCALIX;FQRIX= 
1T06; IFIXONol ANDIXONo2 THENCDKHHl 
)=CD#IIX):HHX=HHX+1 
1690 NEXT:CD*(5)=CDf(7):ENDPROC 
1700 DEF PROCPG:VDU5,18,0,0:LOCALIX; 
F0RIX=0T0plX-l:PROCCF(XIX(IX!,96):NEX 
T:VDU4:ENDPROC 

1710 DEF PROCGNsVDU5,18,0,0:LOCALIX; 
FORIX=0T0coX-l;x2X=((< X2X XIX)-OX)*200 
)-200)+80:PROCCF(x2X,736):NEXT:VDU4:E 
NDPROC 

1720 DEF PROCcs(pointsX):VDU5,18,0,2 
;RX=1:REPEAT:IFPOINT(1008,550)=2THENV 
DU18,0,1 

1730 MOVE ABS(CXMX),CYMX:PRINT Vil 
FCXMX=48THENCXMX*-CXMX+32:CYMX=568 
1740 IFABS(CXMX>=976ANDCYMX=56BTHEN 
CXMX=1008:CYMX=600 
1750 S0UND1,-l2,RX#2+50,2:PRQCT(.3): 
IFPOINT (1008,582)=! THENPROCcnd ,688) 


1760 3FP0INT(1008,550)=1THENPR0CWN ( 11 
The coaputer") 

1770 CXMX=CXMX-32:RX=RX+1:UNTILRX)po 
intsX:VDU4:ENDPROC 
1780 DEF PROCSC(B%,TX):PROCAL(BX,TX) 

:PROCSW(BX,TX):FVR=0:FRR=0:scX=0:PR0C 
FV(BX,TX):PROCFR(BX,TX):PROCTH(BX,TX) 
iPROCTW(BX,TX):PROCPR(BX,TX)sPRQCJK(B 
X,TX):PROCSM(BX,TX):ENDPROC 
1790 DEF PROCCD(FX):F0RxX=80T01080ST 
EP200:yX-736:IFFX=0ANDxX=80 0RFX=0AND 
xX=1080THENGCQLO,0:PROCCF(xX,yX): GOTO 
1810 

1B00 GCOLO,3:PROCCF(xX,yX> 

1810 IFFX=1THENGCQL0,1:PROCCK(xX,yX) 
1B20 GCOLO,3:yX=96:PROCCF(xX,yX):PRO 
CPC(xX):NEXT:ENDPROC 
1830 DEF PROCps (scoreX):VDU5,18,0,2: 
RX=1:REPEAT:IFPOINT(1008,422)=2THENVD 
1118 , 0,1 

1840 MOVEABS(PXMX),PYMX:PRINT IF 
PXMX=48THENPXMX=-PXMX+32:PYMX=440 
1850 IFPXMX=48THENPXMX=-PXMX+32:PYMX 
=440 

1860 IFABS(PXMX)=976ANDPYMX=440THENP 
XMX=10Q8:PYMX=472 

1870 S0UND2,-12,100-RX*2,2:PROCT(.3) 

: IFPOINT(1008,454)=1THENPROCcn(2,320) 
1880 IFPOINT(1008,422)=1THENPR0CWN(N 
AMEI) 

1890 PXMX=PXMX-32:RX=RX+l:UNTILRX>sc 
oreX:VDU4:ENDPROC 

1900 DEF PROCFC(ICX,yX>:L0CAL1X;VDU5 
:FOR IX=280T0880STEP200:PROCcd(ICX): SC 
0L0,CX;MOVE IX+25,yX-56:PRINT;LEFT$(C 
D$(ICX) ,1):MOVEIX+25,yX:PRINT;RIGHTt( 

CD$(ICX),1):ICX=IC%+1:NEXT:VDU4: ENDPR 
DC 

1910 DEF PROCUP:VDD5,18,0,1,25,4,110 
5;320;9,127,25,4,1105;688;230,7,4:END 
PROC 

1920 DEF PR0CDN:VDU5,18,0,2,25,4,110 
5;688;9,127,25,4,1105;320;230,7,4:END 
PROC 

1930 DEF PROCRC:VDU5,18,0,0:F0RxX=80 
T01080STEP200;yX=736:PROCCF(x X,yX);yX 
=96:PROCCFixX,yX);VDU25,4,(xX+96);64; 
127:NEXT;VDU4:ENDPROC 
1940 DEF PROCWN(W4) 

1950 PRQCBL:VDU4,17,1:PRINTTAB(0,0)S 
T*:PRINTTAB(10-(LEN(W*)/2),0) K*:COLO 
UR2: PRINT:PRINTTAB(3);*is the winner! 

";; TIX=1:VDU5:REPEAT:FORIX=1T03:VDU18 
,0,IX,25,4,970;512;(226+IX);PROCsd:N£ 

XT:VDU25,4,1034;512;127 
i960 PROCT<.2);TIX=TIX+l:UNTILTIX=5; 
VDU4,17,3:PR I NTTAB(0,0 > ST*:PR INTTAB » 

,0)"Would you like":C0L0UR2:PRINTTAB( 
2);"another qaae oE":C0L0UR1:PRINTTAB 

' ) 


Micro User Games Special 65 



SPECIAL w 
* OFFER TO * 
READERS 
All 5 games + 
"Brainteasers" on 
one disc. 40 track 
, or 80 track. - 
. Just £29.00 1 


VIGLEN COMPUTER SUPPLIES or debit my ACCESS/BARCLAYCARD No. 
Name- .JSU Signature_ 


f“ TV/Monitor (resolution better 

T / ' ■ , /AT - than 585 x 450 pixels. Dot-to- 

A~4L.\J\J incVAT dot distance.65mm) 

(TV only: £185 inc VAT) 

As a company we chose the Philips because we believe it to 
have the clearest picture as well as being the best value. 

Take our word for it, or come and see foryoursetf. 

EASY ON-THE-SPOT PARKING. AND IT’S FREE! 

Plus £8 carriage 

w lf\lU V and packing 

COMPUTER SUPPLIES 

Personal Service & Quality coupled with Wholesale Prices, 
Unit 7 Trumpers Way, Hanwell, London W7 2QA. 

Telephone: 01-843 9903. 

For special attention to your orders or enquiries concerning 
MONITORS, PRINTERS, COMPUTERS, DISC DRIVES, 
ring 01-843 9903 NOW or fill in the coupon below. 


• Easy to carry# Lightweight# Sparkling picture in seconds# Reliability and 
performance excellent • Headphone Socket can also be connected to tape 
recorder• Loudspeaker mute switch • Retractable carrying handle 

• Monitor/TV selectecfby switch • Includes RGB lead 

connecting direct to your BBC Micro. • Philips Model No. 14CT 2006/05T 


Please send me_ (qty) Philips TV/Monitor at £243 each. I enclose Cheque/P.O. for £_made out to 


Post to: VIGLEN COMPUTER SUPPLIES, UNIT 7, TRUMPERS WAY, HANWELL, LONDON W7 2QA. 


irtmnm 


BBC 32k 


At last, a stunning interpretation of the 3D 
Wire-Graphics Tank Battle simulation you've all 
been waiting for brought to you by Dynabyte. 

Features include anti-tank missile launcher with realistic 
'shell-in-flight' action, radar screen, detailed control panel, 
anti-aircraft and anti-tank modes (with options to choose 
one or both), hidden line removal, exploding tanks and 
many other special effects. There is NO other game like it. 


f m 

2 U >e 

re - s° 9 c r y 


DYNABYTE 


Software 


' Disc versions available, 

same price for , s 3\, e / 

r ams require O.S. 1.2) e 

Please state BBC or Electron when ordering and include 50p 


¥ C 


Availiable now at all good computer shops or direct from 

DYNABYTE SOFTWARE 
PO Box 10 Barnsley S. Yorkshire 
0226-287707 


SAE for catalogue. 


(Allprograms require O.S. 1.2) 


PHILIPS 14" 
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(3)j"cribbage - «Y/N)syn$=BET$!IFyn 
fOTTHfN END ELSE 60T070 
1970 DEF PROCPF:VDU7,17,2:PRINTTAB<1 
0-(LEN(NAMEI) 12) ,1) NAME*!PROCPH:PROC 
SC (1,5)! IFscX>0THENPR0Cscore:PR0Cps (s 
cX):PROCBL 

1980 PRINTTAB(0,i)STi$!COLOUR!:PRINT 
TAB(6,1)“computerVDU7!PROCSC(14,18) 
:IFscX>0THENPR0Cscore:PROCcs Uc%>{PRO 
CBL 

1990 PROCRC:PROCBX(14,736)s PROCSC114 
,18)iIFscX>OTHENPROCscores PROCcs(sc%) 
!PROCBL ELSECOLOUR1;PRINTTAB(0,0)ST*s 
PRINTTAB(4,0)*B#*!i« it H :C0L0UR2:PRIN 
TTAB12,2)"my box is empty!“:PROCsd:PR 
OCT(3):ENDPROC 
2000 PR0CT12).-ENDPROC 
2010 DEF PRQCCT:VDU7,17,1sPRINTTAB(6 
, l) "cormput er *; PROCSC (14,18): 1 FscX> 0TH 
ENPROCscnre:PROCcs(scX):PROCBL 
2020 PR1NTTAB(0,1)ST1*:C0L0UR2:PRINT 
TAB(10-<LEN <NAME$)/2),15 NAME#!VDU7: PR 
OCPH:PROCSC(1,5)! IFscX>OTHENPROCscore 
:PROCps(scX )j PROCBL 
2030 PROCRC:PROCBK(1,96):PROCSC(1,5! 
2040 IFsc%)OTHENPROCscore:PROCps(scX 
):PROCBL ELSECOLOURhPRINTTAB(0,0)ST* 
:PRINTTAB(7-(LEN(NAME*)/2),0) "Sorry 
“;:COLOUR3:PRINTNAME^:C0L0UR2!PRINTTA 
B(2,1)"There's nothingPRINTTAB(3);" 
in your boxPROCsd:PROCT(3):ENDPRO 
C 

2050 PROCT(2):ENDPROC 
2040 DEF PROCBX(ZX,YX)!TX=1:LOCALIX: 
FORI%=ZXT0ZX+4s CD$(IX)=BOX$(TX)iTX=TX 
+1 jNEXT:VDU5,19,0,3!FORxX= 280T0880STE 
P200:PROCCF(xX,YX):NEXT:PROCFC(ZX,YX+ 
112):ENDPROC 

2070 DEF PROCHN:PRINTTAB(13,2);CHR$1 
34jCHR*141;“CRIBBA6E*!PRINTTAB(13);CH 
R*134;CHR*141;"CRIBBAGE" 

2080 PRINTTAB(0,7);CHR$133;“NOTE:";C 
HR*131;"With the exceptions of enter! 
ng"iPRINTTAB!6>;CHR$131;"your name an 
d boxcard selection":PR INTTAB( 6 );CHR* 
131;"al1 entries are single key." 

2090 PRINTTAB <6);CHR$129; H At the end 
of each game the”!PRINTTAB< 6 );CHR$12 
9;"computer will display the scores"! 
PRINTTAB(4);CHR*129;"You must then pr 
ess a key to":PRINTTAB(6);CHR*129;"co 
ntinue." 

2100 PRINTTAB U, 17) ;CHR*134;"Now ent 
er your name-<1-14 letters)":PRINT:IN 
PUT LINETAB(10)NAME* 

2110 IFLEN(NAMEt)>140RNAMEt=*"THENPR 
INTTA8(0,17);STRING*(199," ">iVDU7iPR 
INTTAB(0,141;CHR*134;CHR*129;“Come on 
, please enter correctly!:PR0CT(4>s 
80T02100 



2120 ENDPROC 

2130 DEF PRDCcdfcolX):IFLEFT*iCD*(co 
IX),1)*HEART$ ORLEFT*<CD*fcolX),1)=DI 
AMQND*THENCX=1 ELSECX=0 
2140 ENDPROC 

2150 DEF PROCcn(cX, mX):VDU 18,0,cX,5, 
25,4,96;wX|224;:ENDPROC 
2140 DEF PROCCP:kpX=0:LOCALIX,JX,KX, 
LX:FOR IX=8T010:F0RJX*IX+1T011:F0RKX=J 
X+lT012s F0RLX=KX+lT013s totnoX=0:CD*(l 
4)=CD*(IX):CD*(15)*CD*(JX)!CD*(14)=CD 
*(KX):CD*(17)=CD$(LX) 

2170 PROCAL(14,17):PROCSW(14,17):PRO 
CCC(14,17):IFscX>kpXTHENiX=IX:jX=JX:k 
X=KX!1X=LXitotnoX=iX+jX+kX+1X:PROCCXt 
kpX=scX 

21B0 NEXT:NEXT:NEXT;NEXT 
2190 IFkpX=OTHENPROCSE:ENDPROC 
2200 CD*(14)»CD*(iX):CD*(15)=CD*(jX) 
:CD*il4)=CD$(kX):CD*(17)=CD*(lX):CD*( 
9)=CD*(14!:CD*(10)=CD*(15):CD*(11!=CD 
*(14):CD* <12)=CD*(17):NUM1=1:NUH2=4:A 
X=9:BX=12iENDPROC 

2210 DEF PROCCX:IFtotnoX=38THENB0X*( 
3)=CD*(12):B0X*(4)=CD*(13) 

2220 IFtotnoX=39THENB0X*(3)=CD*(111! 
BOX*(4)=CD$(13) 

2230 IFtotnoX=42THENBQX*(3)=CD*(8);8 
0X*(4)=CD*(13) 

2240 IFtotnoX=45THENB0X*(3)=CD*( 8 )s B 
0X*(4)=CD*(10) 

2250 IFtotnoX=46THENB0X*<3)=CD*(8):B 
QX*(4)=CD*(9) 

2240 IFtotnoX=40ANDkX*10THENB0X*(3)* 


CD*(11):B0X*(4)=CD*<12) ELSE IFtotnoX 
=40THENBOX*(3)=CD*(10)sBQX*(4!*CD*(13 

) 

2270 IFtotnoX=41 ANDj%=9THENB0Xt(3)=C 
D*(10!:B0X*(4)=CD*(12) ELSE IFtotnoX* 
41THENB0X*(3)=CD*(9):BOX*(4)=CD*(13) 
2280 IFtotnoX=43ANDiX=8THENB0X*(3)=C 
D*(9)!B0X*(4)*CD*(11) ELSE IFtotnoX=4 
3THENB0X*(3)=CDt(8):BOX*!4)=CD*!12) 
2290 IFtotnoX=44ANDiX=8THENB0X*(3)=C 
D*(9):BQX*I4)=CD*(10) ELSE IFtotnoX=4 
4THENB0X*(3)=CD*(8>:B0X$(4)=CD*(11) 
2300 ENDPROC 

2310 DEF PRQCBL:VDU5,18,0,0,25,4,103 
2;512;127,127,127,127,127,127,127,127 
,127,127,127,127,127,127,127,4:ENDPR0 
C 

2320 DEF PROCscore:PROCBL:VDU5,18,0, 
2,25,4,80;512;:PRINT*Total Points*";: 
VDU18,0,1!PRINT;scX:VDU4:get=SET:*FX2 
1,0 

2330 ENDPROC 

2340 DEF PROCrn;LOCALIX,J%,KX:gotrun 
X=1s F0RIX=1T01aidX-2:F0RJX=IX+1TOIaid 
X-1:IFrunX(IX)<=runX(JX)THEN2340 
2350 run teapX=run%(IX):run%(IX)*run 
X(JX)srunX <JX)=run_teapX 
2340 NEXT:NEXT:F0RKX*1TQ1aidX-t:IFru 
nX(KX)+l=runX(KX+l)fHLNgotrunX=gotrun 
X+1ELSE IFrunX(KX+1X >0THENgotrunX=l 
2370 NEXTsENDPROC 

2380 IFERR=25THEN70ELSEM0DE7:REPORT: 
PRINT" at line No, M ;ERL:VDU23;11,255 
; 0 ; 0;0 
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THE principle of Which-Way? was 
described in 1969 by a research worker 
looking into psycho-cybernetics and 
game playing. Each of your moves is 
partly controlled by your opponent’s 
previous move, which means there is an 
element of feedback in the game. 

In the same way, your move controls 
the options open to your opponent, so 
you may be able to force him into a 
move which is favourable to yourself. 

The board is made up of 64 tiles, set 
out in the usual 8x8 pattern. The two 
opposing sides are Red and White. Each 
side has a start tile and a finish tile and 
the other 60 are made up of arrow tiles 
or blank tiles. 

Each arrow tile shows three arrows 
and since there are eight possible 
directions for the arrows this means 
there will be 56 different possibilities for 
the arrow tiles. 



8 directions one possible tile 

8x7x6 
1x2x3 - 56 


If we take a completely blank tile into 
account then there will be 57 possible 
tiles to choose from. The program 
chooses at random from these designs 
and prints them out in the 8 x 8 layout. 

On the first run this takes about five 
or six seconds to be produced, but in 
further games the board is printed on 
demand. 
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The aim of the game is to get from 
Red start to Red finish or from White 
start to White finish. 

There is one basic rule which controls 
the moves in the game - you can only 
move in a direction shown by one of the 
arrows on your opponent’s tile. To 
make your moves you use the keys 
shown in Figure I. 

Here is part of one possible layout 

V_._._ 


Spend a night 
on the tiles ••• 

. . . but make sure you head in the right direction with 
JERRY LANCASTER'S game of strategy for two players 


showing the start of a game. Red moves 
first. He has three choices, tiles 1,2 or 3: 
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If Red moves to tile 1, White has a 
completely free choice - A, B or C. 

White chooses A, Red will have only 
one legal move (down to tile 3) because 
the other two directions take him off the 
board. 

White chooses B, Red has a choice of 
three moves all of which take him in the 
right direction. 

White chooses C, Red will be left with 
two moves, one of which takes him back 
to the Red start tile, giving White a free 
choice next move. 

If Red moves to tile 2, White will have 
only two possible moves, B or C. 

White chooses B, and gives Red the 
advantage of a free choice of three 
directions. 

White chooses C, and Red has two 
moves possible this time, back up to tile 
1 or down to tile 4. 

If Red moves to tile 3, White has no 
legal moves available because all Red’s 
arrows take White off the board. 

This move by Red to tile 3 looks like 


his best option. 

If you attempt an illegal move the 
computer will not execute it. Instead it 
will leave you where you are and award 
the move to your opponent. 

Illegal moves are: 

• Any move which would take you off 
the board. 

• Any move which does not match one 
of the arrows on your opponent’s tile. 
© Any move which would put both of 
you onto the same tile. 

Some tiles are blank. If you move 
onto a blank tile your opponent will be 
left with no legal moves, so in effect you 
will get a free move. When you are 
forced to stay on the same tile you can 
do so by pressing the central key of your 
control group. 

Red always starts the game but White 
can decide whether or not to accept the 
layout displayed. If Y is pressed you can 
get an entirely new layout, without 
losing the current game score. 

This option is also available during 
play, so that if a drawn position is 
reached you can restart that game. 

Be careful when entering the program 
that you don’t inadvertently include any 
spaces or suchlike as it is very tight on 
memory. You will certainly have to 
download it on DFS machines. 

-—-- ¥ 



Figure I 
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From Page 68 


' h$(N%) 

1 sHAPE%(N%) 

I tile%(x>y) 

\ red, white 
VDU23,224 to 232 
1 VDU23,234 to 242 

1 movelS, move 2$ 
| shape%(N%) 


sh$(N%) 

X% Y% 


procedures and main variables^ vA 

sk$(N*> ^u^hshows where the arrow should be. I 

SUoc — 4 columns md I 

isone »** 1 

unit. , , nine-digit number Values are “^corners. The remaining ■ 

A Binary coded ttem . tiles, such as t a t random using ■ 

Jhich describes the£* of the tile patterns are chosen | 

Array which record h ^ game . N% = R^(57_). r inted on their ■ 

tiles on the board for a pa rED and ^ ^ n ght ■ 

The game scores. start squares using ■ 

, ‘Arrow’ shapes. colours. I 

\ ‘No arrow’ shapes- DEFPROCgam. , I 

UEFPR l"«uo> S MOO-4 ^sed SjS» to "S S So 

^Seao h -*"r"at. ** * H 

52—£ “* " tte «"£? S=? - d*W 

S “ieSftom » t»e pattern: pMCH al»me "^““e tgaiit, of 

r cuapE%tN%)- 
SV'eroa - have been omitted 
■--a .o be replaced- __ 


pROCmoveA 

pROCmoveB 

1% 

PROClegalmove 

pROCwin 


m 

T 1 

3 

4 

5 

IL 


]X 

rr 


UJX22U a move. . hed a 

If a winning P»<in .be 
a^pproptiate^o'mn and^he game score 
is updated. 


20 REM (C) The Micro User 
30 MQDE1 

40 VDU23,1,0;0;0;0; 

60 *FX4,1 
70 *FX 11,0 
90 PROCinit 
100 PROCtileshapes 
HO PROCboard 
120 PROCgaue 
130 COLOUR21CLSsGOTO1i0 
140 END 

160 DEFPRQCinit 

165 ENVEL0PE2,2,6,0,0,255,0,0,126,0 
,0,-126,126,126 
170 DIMsh$(58) 

180 DIMTILE%(8,9) 

190 DIMSHAPEX(58) 

200 red*0!white s 0 

210 PRINTTAB(7,7);"WHICH-WAY?" 

220 VDU23,224,0,127,67,71,67,81,120 
,124 

230 VDU23,225,0,255,231,195,129,231 
,231,231 

240 VDU23,226,0,254,194,226,194,138 
,30,62 

250 VDU23,227,127,119,103,64,64,103 
,119,127 


260 VDU23,228,36,0,129,24,24,129,0, 
36 

270 VDU23,229,254,238,230,2,2,230,2 

38.254 

280 VDU23,230,124,120,81,67,71,67,1 
27,0 

290 VDU23,231,231,231,231,129,195,2 
31,255,0 

300 VDU23,232,62,30,138,194,226,194 
,254,0 

310 VDU23,234,0,127,127,127,127,127 
,127,127 

320 VDU23,235,0,255,255,255,255,255 
,255,255 

330 VDU23,236,0,254,254,254,254,254 
,254,254 

340 VDU23,237,127,127,127,127,127,1 
27,127,127 

350 VDU23,238,255,255,255,255,255,2 
55,255,255 

360 VDU23,239,254,254,254,254,254,2 

54.254.254 

370 VDU23,240,127,127,127,127,127,1 
27,127,0 

380 VDU23,241,255,255,255,255,255,2 
55,255,0 

390 VDU23,242,254,254,254,254,254,2 


54,254,0 

400 PRINTTAB(8,14);”Setting up boar 
d" 

410 ENDPR0C 
420 DEFPROCtileshapes 
430 »ovel$=CHR$(8)+CHR$(8)+CHR$(8! + 
CHRK10) 

440 Biove2*=CHR$(ll)+CHRI(ll! 

450 F0RNX=1T058 
460 READSHAPEX(NX) 

470 SH$=STR$(SHAPEX(NX)) 

480 REPEAT 

490 IF LEN!(SHIS)<9 SHI="0 K +SHI 
500 UNTIL LEN(!SHI))=9 
510 sh$(NX) = "" 

520 FORAX=1T09 

530 IF MIDt!SH$,AX,1>="1"sh$(NX)=sh 
t(NX)+CHR$(223+AX)ELSEsh$(NX)=sh$(NX) 
+CHR$(233+AX) 

540 IFAX=30RAX=6sh$(NX)=sh$(NX)+®ov 
ell 

550 IFAX=9sh$(NX)=sh$(NX)+move2i 
560 NEXTAX 
570 NEXTNX 
580 ENDPR0C 

590 DATA111010000,011110000,0011110 
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Name_ 

Address - 

Post to: Database Publications, 68 Chester Road, 
Hazel Grove, Stockport SK7 5NV. 


WHAT A 
BARGAIN! 


Four classic 
arcade games 
for less than 
£1.50 each 


Tower of London Ghosts have broken out of the 
Tower of London and taken the treasure. Can you 
recover it? 

Blackjack A true-to-life recreation of the casino 
favourite. Can you beat the bank? 

Galactic Invaders The only thing between you and 
imminent destruction by waves of hostile aliens is 
your proton gun. A compulsive classic. 


Alien Intruders Stunning version of the all-time 
arcade hit. No one can resist this classic! 

Goblins Frolics in fairyland! Guide Kaplan the pixie 
home through the forests, avoiding the nasty 
goblins - a delightful game 

Gone Fishing Superb simulation of a day on the 
riverside This enthralling program will give hours 
of enjoyment. 


Three of this high-powered collection are 
top-rate machine-code versions of arcade 
classics and the fourth is a thrilling real-time 
adventure game. There's hours of enjoyment 
and something to suit everyone in this unique 
value for money collection. 


the maze as he munches energy pellets 
and avoids hostile aliens. MAYDAY - A 
futuristic adventure! As captain of an 
interstellar cruiser you must guide the 
sole survivor of a stricken space freighter 
through the wreckage of his craft. 

£5.95 (cassette) £7.95 (disc) 


ALIEN INTRUDERS -With only your 
laser for protection you must destroy the 
waves of aliens who threaten to engulf 
you. PANZER ATTACK - You are a 

tank commander engaged in vicious 
combat against encircling enemy forces. 
SNAPMAN - Guide your man through 




Build your own handy, action-packed 
cassette library of these all-time 
Micro User favourites. Only £3.75 per 
cassette (three games in each). 


" jut m ■ “ —r' " t"-"- 

ACTION ~ 

ftinnyi &:• 


Deathwatch Hold the fort against a combined tank 
and helicopter assault on your positions. Fast and 
furious - one of our most popular games. 

Pelmanism Defeat the computer by remembering 
more pairs of cards than it can. 

King Kong Use your helicopter to rescue two 
maidens from the Empire State building - avoiding 
a deluge of rocks from King Kong. 


Fruities Fast-paced, fun-packed extravaganza. 
Guide your man up ladders, avoiding - and digging 
traps for - the marauding Fruities! 

Nim Find out just how nimble your mind is in this 
intriguing battle of wits against the computer. 

Space Pilot Desperately fighting off hostile 
life-forms, you must dock with satellites to 
replenish dwindling fuel supplies. 


Robin and Marian Medieval melodrama 1 Rescue 
Maid Marian from the sheriff A hilarious, 
action-packed game. 

EECGAL In charge of the EEC's Picture Gallery, 
you have to put some order into the frames - but 
it's not so simple as it sounds. 

Air Strike You need to fly fast and low for this 
dangerous intrusion into enemy air space. 


Barrel Battles Fast and furious video action. 
Dodging an avalanche of deadly barrels you climb 
towards the telephone 

Frogs n’ Dogs Loved by young and old alike 
Simply take Freddy Frog for a walk, avoiding Fido 
and poisonous lilies! 

Tenpins Stunning simulation of ten pin bowling. 
This addictive game will hold you spellbound. 


Please send me: 

CLASSIC ARCADE GAMES 
BBC 'B' Cassette £5.95 PH BB' 

40 Track Disc £7.95 ^ 

80 Track Disc £7.95 ~ 

□ I enclose cheque made payable to 
Database Publications Ltd. 
for £_ 

D , I wish to pay by □ Access O Visa 


ACTION REPLAY 


BBC 'B' 1 

Cassette ~y 
£3.75 — 

3 


. Expiry date . 
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From Page 70 

00 , 000111100 , 000011110,000010111 
600 DATA110110000,110011000,1100101 
00 , 110010010,110010001 
610 DATA011011000,011010100,0110100 
10,011010001 

620 DATA001U0100,001110010,0011100 

01,101110000 

630 DATA000111010,000111001,1001110 

00,010111000 

640 DATA000011101,100011100,0100111 

00,001011100 

650 DATA100010110,010010110,0010101 

10,000110110 

660 DATA100010011,010010011,0010100 
11 , 000110011,000011011 
670 DATA101011000,101010100,1010100 
10,101010001 

660 DATA100110100,100110010,1001100 

01 

690 DATA100011010,100011001,1000101 

01 

700 DATA010110100,010110010,0101100 

01 

710 DATA010011010,010011001,0100101 

01 

720 DATA001011010,001011001,0010101 

01,000110101 

730 DATAOOOOOOOOO,111111111 

740 DEFPRQCboard 

750 XX=1 

760 YX=1 

770 CLS 

780 C0LQUR2 

790 Z%=0 

800 REPEAT 

810 NX=RND!57) 

820 IFX%=1ANDYX=1NX=58 
830 IFXX=BANDYX=1NX=5B 
840 IFX%=1ANDYX=8 NX=57 
850 IFXX=8ANDYX=B NX=57 
860 TILEX(XX,YX) s SHAPEX(NX) 

870 PRINTshKNX); 

880 xx=xx+i 

890 IFXX>8PRINTs PRINT?PRINT;XX=1sYX 
=YX+1 

900 1FXX=1ANDYX=8 COLOURS ELSE COLO 
UR2 

910 IFXX=8ANDYX=8 COLOUR! 

920 UNTILYX>8 

930 XA=1:YA=1:XB=22s YB=1 

940 C0LQUR1:PRINTTAB(XA,YA)j M *“ 

950 CQL0UR3sPRINTTAB!XB,YB)i 
960 *FX21,0 
970 ENDPROC 
980 DEFPROCgane 
990 REPEAT 

1000 COLOUR!;PR1NTTAB427,4);"RED TO 


HOVE * 

1010 PRINTTAB127,12)j"RED "red 
1020 C0L0UR3!PRINTTAB(27,15);"WHITE 
"white 

1030 PRQCmoveA 
1040 S0UND1,-15,97 f 2 
1050 IFZX=160T01090 
1060 C0L0UR3:PRINTTAB(27,4);“WHITE T 
0 HOVE* 

1070 PROCffloveB 
1080 S0UND1,-15,197,2 
1090 UNTILZX=1 

1100 IFXA=22ANDYA=22red=red+l 
1110 !FXB=lANDYB=22white=white+l 
1120 COLOURhPRINTTAB(27,12)|"RED 
"red 

1130 COLOURSiPRINTTAB(27,15);"WHITE 
"white 

1140 PRINT TAB<4*28)"Press space For 
next gaie" 

1150 REPEAT UNTIL GETS*" " 

1160 ENDPROC 
1170 DEFPROCsoveA 
1180 REPEAT 
1190 xa=XA:ya=YA 
1200 IX=INKEY!0! 

1210 UNTILIXO-1 
1220 IF IX=81 IX=1 
1230 IF IX=87 IX=2 
1240 IF IX=69 IX=3 
1250 IF IX=65 IX=4 
1260 IF IX=83 IX=5 
1270 IF 11=68 IX =6 
1280 IF IX=90 IX=7 
1290 IF IX =88 IX s 8 
1300 IF IX=67 11=9 
1310 1F1X=89 ZX=1:ENDPROC 
1320 IF IX<1 OR IX>9 THEN S0UND1,-15 
,33,7.'G0T01180 
1330 PROClegalsove(XB,YB! 

1340 IFIX=-1 ENDPROC 
1350 IF IX=1 XA=XA-3;YA=YA-3 
1360 IF IX«2 YA=YA-3 
1370 IF IX=3 XA=XA+3:YA=YA-3 
1380 IF IX=4 XA=XA-3 
1390 IF IX=5 XA=XA:YA=YA 
1400 IF IX=6XA*XA+3 
1410 IF IX-7 XA=XA-3sYA=YA+3 
1420 IF IX=B YA=YA+3 
1430 IF IX=9 XA=XA+3:YA=YA+3 
1440 IFXA<1 XA=xasYA=ya 
1450 IFXA>22 XA=xasYA*ya 
1460 IFYA<1 XA=xasYA=ya 
1470 IFYA>22 XA=xa:YA=ya 
1480 IFXA=XB AND YA=YB XA=xa.*YA=ya 
1490 C0L0UR2:PRINTTAB(xa,ya)jCHRI(22 
8 ) 

1500 C0L0UR1:PRINTTAB<XA,YA)g 
1510 PRQCcheck 


1520 ENDPROC 
1530 DEFPROCeoveB 
1540 REPEAT 
1550 IX s INKEY(0) 

1560 UNTILIXO-1 
1570 xb=XBsyb=YB 
1580 IF IX=80 IX=1 
1590 IF IX=64 IX=2 
1600 IF IX=91 IX=3 
1610 IF IX=76 IX*4 
1620 IF IX=59 IX=5 
1630 IF IX=58 IX .=6 
1640 IF IX=44 IX s 7 
1650 IF IX=46 IX =8 
1660 IF IX=47 IX=9 
1670 IF IX=89 ZX=1:ENDPROC 
1680 IF IX<1 OR IX>9 THEN S0UND1.-15 
,33,7sGQT01540 
1690 PR0C1egalfflove(XA,YA) 

1700 IFIX=-1 ENDPROC 
1710 IF 11=1 XB=XB-3:YB=YB-3 
1720 IF IX=2 YB=YB-3 
1730 IF IX=3 XB=XB+3:YB=YB-3 
1740 IF IX=4 XB=XB-3 
1750 IF IX=5 XB=XB:YB=YB 
1760 IF IX =6 XB=XB+3 
1770 IF IX«7 XB=XB-3!YB=YB+3 
1780 IF IX=B YB=YB+-3 
1790 IF IX=9 XB=XB+3:YB=YB+3 
1800 IFXB<1 XB=xbsYB=yb 
1810 IFXB>22 XB=xb:YB=yb 
1820 IFYB<1 XB=xb:YB=yb 
1830 IFYB>22 XB=xb:YB=yb 
1840 IF XB=XA AND YB=YA XB=xb:YB=yb 
1850 C0LDUR2sPRINTTAB<xb,yb)|CHRi<22 
8 ) 

1860 C0L0UR3sPRINTTAB(XB % YB); 

1870 PRQCcheck 

1880 ENDPROC 

1890 DEFPROCcheck 

1900 IFXA=22 AND YA=22 PROCwin 

1910 IFXB=1 AND YB=22 PROCwin 

1920 ENDPROC 

1930 DEFPROCwin 

1935 SOUND!,2,4,50 

1940 PRINTTAB(27,4);“ 

1950 PRINTTAB(4,25);“The winner ! * 

» » a* 

I960 ZX=1 
1970 ENDPROC 

1980 DEFPR0C1egalmove(X,Y) 

1990 x=(X+2!/3:y=(Y+2)/3 
2000 a$ s " 0 " 

2010 Z$=STR$(TILEX(x,y)) 

2020 REPEAT 

2030 IF LEN1 Z$5<9 THEN Z4=at+Z$ 

2040 UNTILLEN(Z$)=9 

2050 IF NIDKZt,IX,1)0*1" IX=-1 

2060 ENDPROC 
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Don't miss out—send 
off for your cassette 
or discs today 


Vie best software 

value ever! 


IT'S an offer you can't 
afford to refuse — all 14 
fantastic games from 
The Micro User's ■ 

Games Special are now ■ 

available on tape or disc 
to save you the trouble ■ 
of typing them in. 

Never before has such ■ 
high quality fun-packed 
games been offered at 
such a low price! bH 

In fact the package is so M 
crammed with goodies that ■ 

for the DFS version we've 
had to split the cassette flj 

over two discs. 1 

On DISC A (Cassette Side 
A) you'll find Bounce, Crib, 1 

Fair Play, Sevens, Which 
Way, White Widow and 
Yams. 

DISC B (Cassette Side B) 
features China Drop, Crown 
Green, Draw Poker, Explorer 
Eddie, Masterspy, Patience and 
Splat. 

And every game is of the high 
standard for which Micro User is 
renowned! 

Never before has so much BBC 
Micro software been offered for 
so little. 


Please send me Games Special 
software as indicated here: 

□ I enclose cheque made payable to 
Database Publications Ltd. 
for £_ 

O I wish to pay by □ Access O Visa 
No-Expiry date_ 


□ Cassette £7.95 

□ Disc A £7.95 

□ Disc B £7.95 

□ Discs A and B £14.00 

□ 40 track □ 80 track 

N.B. No Electron version 


Post to: Games Special, Database Publications, 

68 Chester Road, Hazel Grove, Stockport SK7 5NV. 
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YAMS is an adaptation of the 
traditional dice game Yahtzee and can 
be played by two to four players. 

The object of the game is to get the 
highest score possible by using a set of 
five dice to obtain certain combinations, 
called scores. These are outlined below. 

Each player takes a turn at throwing 
the set of dice. During that turn you 
have a maximum of three throws. After 
the first throw you may 

□ Throw all the dice again. 

□ Hold selected disc and throw the 

rest. 

□ Accept the throw. 

After the third throw, you must 
accept the dice shown. If you can select 
a score from this combination of dice 
then you must do so - if not you can 
pass. 

Once you have made a valid 
selection, a summary of your current 
scores is shown and the game then 
passes on to the next player. It cycles 
round all the players until everyone has 
had 14 turns - enough to cover all the 
scores. 

A final score sheet is then shown and 
the winner declared. 




KEYS 

Y 

Accept a throw 

Space 

Throw all dice again 

H 

Hold some of the dice 


Once you have pressed H, you are 
asked how many dice you wish to keep 
and then which ones they are. To select 
these, type in the appropriate number 
(1-5) of the dice, reading from left to 
right. Once selected, the dice has the 


letter H printed under it. 

When you accept a throw, type the 
NAME of the score you have selected. 
The ones you require are shown at the 
top of the screen. If you can’t make up a 
score, type PASS and then enter the 
NAME of the score you wish to forfeit. 

When your score summary is shown 
the computer waits for quite a while to 
allow you to get a good look at your 
scores. 

As the game progresses, there are 


VARIABLES 

A$,ABS,AN$ Strings for INPUTS. 

A% Accept throw flag. 

a % Number of selected ‘score . 

B% Bonus. 

b%, B$ General variable used in PROCPASS. 

C% Game loop counter. 

d%, dd% General loop variable. 

DRS Names of players who have drawn a game. 

D$ General string used in PROCgot. 

e% Side value in PROCSIDE. 

f% Indicates whether or not you’ve already selected 

2 i score. 

F%, ff% General variable in RUN procedure. 

FA% Value of face of dice. 

G% General loop variable. 

g% Face value in PROCFACE. 

H% General loop variable. 

HO$, HO% Number of dice to be held. 
ho% Identity of dice selected to hold. 

j% Seeds random number generator. 

ID% Flag to indicate validity of throw. 

j% General loop variable. 

j$ General string used in PROCPASS. 

k% General loop variable. 

K% Key used in sort routine. 

N% General loop variable. 

q% General variable in RUN procedure. 

p% Number of players. 

p% General loop variable. 

Points assigned to a score. 

Controls colours. 

R% General loop variable. 


q% 

Q%. 


REPLY% Indicates a key pressed. 

S% Size of side of dice. 

s % General loop variable. 

ss % General variable used in PROCRUN. 

SI% Value of side of dice. 

throw% Throw counter. 

TT%, t% General variables in PROCRUN. 

T% Controls dice moving down screen. 

t% Value of top of dice in PROCTOP. 

to % Value of top of dice. 

U% General loop variable. 

V% Valid flag. 

WINS Name of winning player. 

X% Value of dice in PROCTHDI. 

X% Coordinate (x) of dice. 

Y% Coordinate (y) of dice. 

Z% Delay variable. 


arrays 

D% Holds value for each of the five dice. 

DPOS% Holds starting position for drawing dice on 
screen. 

hold% Contains dice to be held during each throw. 

NAS Holds names of players. 

SC% Holds each players total score. 

SCS Holds names of scores. 

SCSH% Three dimensional arrayjiokhng ^coresheet fo 

each player. That is, SCSH%(A,B,C) where 
A=‘score’, B=player and C=status of score A 
for player B. C=0 gives the actual score 
obtained; C=1 gives details about that score, that 
is, whether available, forfeited or taken. 
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quite a lot of them. However, if you find 
this too long, simply alter line 1190 
PROCDEL (1000) to a lower value. 

When playing this game, you take 
your scores from the front face of the 
dice - that is, the dice facing you on the 
screen. 

Because of the large number of 
variables in this game, the program had 
to be written in Mode 4, thus sacrificing 
colours. The program is a tight fit even 
then, so be careful not to leave spaces. 


obtained 


each players turn. Indicates scores 
and scores forfeited. 

Delay procedure. 

Adds up each players scoresheet an 
whether to award bonus. Calls 
PLTBL. 

Draws the final scores table and declares the 
winner. Asks if you want another game. 
Throws dice, checking which ones (if any) 
are to be held. This procedure assigns the 
values to the dice. 

Actually draws dice tumbling down the 
screen. Also erases dice where necessary. 
Sets hold% back to 0 before ending. 

Draws a cube at selected position. 

Draws the edges of the cube. 

Draws a tiltedcube and its edges. 

Draws the spots on the top of the cube. 
Draws the spots on the side of the cube. 
Draws the spots on the face of the cube. 
Calculates the values for the top and side ot 
the cube given the value for the face. 
PROCHOLD Asks which dice you wish to hold and sets 
hold% accordingly. 

PROCPASS Asks which score you will forfeit and sets 
SCSH% to indicate this. 

PROCERASE Erases dice from resting position on screen, 
ready for next throw. 

PROCgot Checks to see if you’ve selected a score 

which you’ve already had. 


ROCINIT 


: ROCNAMES 
ROCPLAY 


PROCPLOT 

PROCLPLOT 

PROCTILT 

PROCTOP 

PROCSIDE 

PROCFACE 

PROCSPOTS 


PROCCHECK 


PROCtot 


PROChi 
PROClo 
P ROC valid 


PROCTPR 


PROC1NST 

PROCerr 
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From Page 75 

10 REN *m*«YAHShm* 

20 REN BY J.AIZPURVS 
30 REN (0 The Micro User 
40 NODE?:VDU23;8202;0;0;0;:IZ*RND( 
-TINE):PROCnop1ayer s s PROCINIT s PR0CNAM 
ES:HQDE4:VDU23;8202;0;0;0;24,0;160;12 
79;840;19,0,4,0,0,0iCLS:CL6 

50 ENVELOPE!,1,-128,127,-128,1,1,1 
,75,-50,-1,0,126,0 

60 PROCPLAY:M0DE7:VDU23;8202;0;0;0 
PROCADD 
70 END 

80 DEFPROCnoplayers 
90 PRINTTAB(12,8);CHR$141;CHRtl36; 
CHR$133;CHR*157;CHR*132;"YAHS a ;CHR$3 
2;CHR$156;CHR$137:PRINTTABfl2,9!;CHR$ 
141;CHR$136;CHR$133;CHR$157;CHRtl32j a 
YAHS a ;CHRt32;CHR$156;CHRtl37s*F)(21,0 
100 PRINTTAB(3,14);CHRI131;"Do you 
want instructions? a ;CHR*134; a Y/N a :AN 
♦=BET$ 

110 IF AN$=*Y'THEN PROCINST 
120 *FX21,0 

130 PRINTTAB S3,14);SPC(37);TAB(3,14 
);CHR4130;:INPUT*H0N NANY PLAYERS *,P 
X 

140 IFPX<=1 OR PX>4THENS0UND0,-15, 
3,10:SOUND1,0,172,10:60T0130 
150 ENOPROC 
160 DEFPRQCINIT 

170 DIN DXI4),SCSHX(14,PX-1,1),NA$! 
PX-1),DPOSX(4),SC»(14),SCX(PX-1),hold 
X (4) 

180 SX*100 

190 FOR NZ s 0T04:holdX(NX)“FALSE:NE 
XT 

200 FOR NX*0T04:DX(NZ)=0:NEXT 
210 FOR NX=OTQPX-l:FQR pX*0T014:F0R 
BX s 0T01sSCSHX(pX,NX,QX) a O:NEXT:NEXT:N 
EXT 

220 FOR dX s 0T04:READ DPOSX(dZ):NEXT 
230 DATA 400,600,800,1000,1200 
240 REST0RE2580:FOR NX-1T014:READ S 
C$(NX):NEXT 

250 FOR NZ=OTOPZ-i:SCX(NX)*0:NEXT 
260 ENDPROC 
270 DEFPROCNANES 
280 FOR NX=0T0PZ-l:*FX21,0 
290 PRINTTAB(0,17)|SPC(40):PRINTTAB 
(3,16);CHR$129|"NHAT IS YOUR NANE PLA 
YER *;NX+1:INPUT,ANt:IF AN»»" THEN 2 
90 

300 NA$(NX) S LEFT$(AN$,6):NEXT 
310 ENDPROC 

320 DEFPROCPLAY:CX=0:REPEAT:CX=CX+1 
330 F0RNX=0T0PX-1:CLS:PRINTTAB(5,0) 
;"O.K.*;NA$(NZ);" you need:" 

340 FOR QX S 1 TOM: IFSCSHZ (QZ,NX, 1) s 0 


THENPRINTSCKBX); a , a ; 

350 NEXT:AX=FALSE:throwX=0 
360 REPEAT:PROCTHDI:UNTIL AX«TRUE 0 
R throwX s 3 
370 tFX21,0 

380 PRINTTAB(0,24);SPC(160):INPUTTA 
B(5,24)"What will you take froa this 
throw *,ANI:IF LEFTf(AN*,4)=*PASS" TH 
EN PROCPASS:60T0430 
390 fX=0:PR0Cgot(ANI):IFfX<>0 THEN 
380 

400 IDX s FALSE: PROCCHECK (AND 
410 IFIDX*FALSE AND aX»0 THEN PROCe 
rr:PROCDEL(500):S0T0380 ELSEIFIDX*FAL 
SE THEN PRINTTAB(5,26);AN$; a is not v 
alid with this throw a :S0UNDQ,-15,3,l0 
:SOUND1,0,172,10:PROCDEL(500):B0T0370 
420 PRINTTAB(0,24);SPC(160):PRINTTA 
B(5,24); a 0.K.':SCSHX(aX,NX,l)-liVDU7i 
PROCDEL(100) 

430 PRINTTAB(0,0);SPC(200);TAB(0,24 
);SPC(160):PR0CSC0RES(NA$(NX)):NEXT 
440 UNTIL CX>*14 
450 ENDPROC 

460 DEFPROCCHECK(A4):aZ=0 
470 IFA4**0NES a THENaX=l:PROCtot:PRO 
Cvalid 

480 IFA$* a TNQS a THENaX=2:PROCtot:PRO 
Cvalid 

490 IFAf="THREES a THENaX=3:PROCtot;P 
ROCvalid 

500 IFAI s “F0URS a THENaX=4:PR0Ctot:PR 
OCvalid 

510 IFA$=“FIVES a THENaX=5:PR0Ctot:PR 
OCvalid 

520 IFA$ s "SIXES a THENaX*6:PRQCtot:PR 
OCvalid 

530 IFA$= a TNO PAIRS a THENaX=7:ptsX*3 
0:PROCTPR:PROCvalid 
540 IFA$= a TRIPLE"THENaX=8:ptsXs30:P 
RQCTRI:PROCvalid 

550 IFA$= a RUN"THENaX=9:ptsXMO:PROC 
RUN:PROCvalid 

560 IFA*« a FOUR KIND a THENaZ~10:ptsX® 
40:PR0CFKD:PROCvalid 
570 IFA*= a FULL HOUSE a THENaX=li:ptsX 
=40:PROCFH:PROCvalid 
580 IFA$» a Hl a THENaX=12:PR0ChiiPR0Cv 
alid 

590 IFA$="L0"THENaX=13:PR0C1o:PROCv 
alid 

600 IFA$="YAMS*THENaX=14:ptsX=60:PR 
OCYAMS:PROCvalid 
610 IF aX*0 THEN IDX=FALSE 
620 ENDPROC 
630 DEFPROCtot:JX=0 
640 FOR RZ*0TQ4:IF DX(RZ)=aZ THEN J 
X=JX+DX(RX) 

650 NEXT:SCSHZ(aX,NX,0)=JX 
660 ENDPROC 


670 DEFPROChi 

680 sX=0:IFaX=12AND SCSHZ(13,NX,0)= 
0THENF0RRX=0T04:SCSHX(aX,NX,0)=SCSHZ( 
aZ,NX,0)+DX(RX):NEXT ELSEFQRRZ=0T04:s 
X=sX+DZ (RX): NEXT 

690 IFsX»OTHEN ENDPROC ELSEIFsX<»SC 
SHX(13,NX,0)THEN ENDPROC ELSESCSHXiaX 
,NX,0) s SCSHX(aX,NX,0)+sX:ENDPROC 
700 DEFPROClo 

710 sZ=0:IFSCSHZ(12,NZ,0)=OTHENFORR 
Z=0T04:SCSHX(aX,NZ,0)=SCSHZ(aX,NX,0)+ 
DZ(RX):NEXT ELSEF0RRX=0T04:sX=sX+DX(R 
X):NEXT 

720 IFsX=OTHEN ENDPROC ELSE IFsX>=S 
CSKX!12,NZ,0)THEN ENDPROC ELSESCSHXU 
X,NX,0! a SCSHX(aX,NX,0)+sXsENDPROC 
730 DEFPROCvalid 

740 IFSCSHX(aX,NX,0)=OTHENIDX=FALSE 
ELSEIDX=TRUE 
750 ENDPROC 

760 DEFPROCTPR:VX=FALSE 
770 IF(DX(0)=DZ(1)AND(DX(2)=DX(3)OR 
DX(2)=DX(4)OR DX(3)=DZ(4)))OR(DX(0)= 
DZ(2)AND(DZ(1)=DX(3)OR DZ(1)=DX(4)OR 
DZ(3)=DX(4)))OR(DX(0)=DZ(3)AND(DX(1)= 
DX(2)OR DX(1)=DX(4)OR DX(2)=DX(4)))TH 
ENVZ=TRUE 

780 IF(DZ(0)=DX(4)AND(DX(1)=DX(2)0R 
DX(1> =DX(3)OR DZ(2)=DZ(3))>OR(DX(1) = 
DZ(2)AND DZ(3)=DZ(4)>OR(DX(1)=DX(3)AN 
D DZ(2)=DX(4))0R(DX<1)=DX(4)AND DX(2) 
=DX(3))THENVX*TRUE 
790 IFVX=TRUE THEN SCSHXiaX,NX,0)*p 
tsX 

800 ENDPROC 

810 DEFPROCTRI:VX=FALSE 
820 IF(DZ(0)=DX(1)ANDDZ(0)=DX(2))OR 
(DX <1)=DZ(2!ANDDX(1)=DX(3))OR(DX(2)=D 
X(3)ANDDX(2)=DX (4))OR(DZ(3i=DZ(4)ANDD 
Z(3)=DZ(0))OR(DX(4>=DX(0)AND DX(4)=DX 

(1) )THEN VXsTRUE 

830 IF(DX(0)=DZ(1)ANDDX(0)=DZ(3!)OR 
(DX(1)=DX(2)ANDDX(1)=DZ(4))OR(DX(0)=D 
X(2)ANDDZ(0)=DX(3))OR(DX(0)=DX(2)ANDD 
X(0)=DZ(4)> OR(DX(1)=DX(3)ANDDX(1)=D%( 
4)) OR (DX (1) =DX i 3) ANDDX (1)=DX (0)) THEN 
VX=TRUE 

840 JFVX=TRUE THEN SCSHX(aX,NX,0>*p 
tsX 

850 ENDPROC 

860 DEFPROCFKD:VZ=FALSE 
870 IF(DX(0)=DX(1)ANDDX(0)=DX(2)AND 
DX(0)=DZ(3))OR(DZ(1)=DX(2)ANDDX(1)=DZ 
(3)ANDDX(1)=DZ(4))OR(DX(2)=DX(3)ANDDZ 

(2) =DZ(4)ANDDZ(2)=DZ(0))OR(DZ(3)=DX(4 
)ANDDX(3> S DZ(0)ANDDZ(3)=DZ(1))OR(DZ(4 
)=DZ(0)ANDDZ(4)=DZ(1)ANDDX(4)=DZ(2))T 
HENVX=TRUE 

880 IFVX-TRUE THEN SCSHX(aX,NX,0)=p 
tsX 
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890 ENDPROC 

900 DEFPROCYAMS 

910 IFDX(O)-6AND0X<1) a 6ANDDX(2)»6AN 
DD%(3)=6ANDD% < 4)=6THENSCSHX(aZ,N%,0)® 
ptsX 

920 ENDPROC 

930 DEFPROCRUN:OX=OsTTI-OitX a OiFX*0 
:ffX-0:ssX s 0 

940 F0RRX=0T04sIFDX<RX)»1THEN0X«0X+ 

1 

950 NEXT:IF0X>1THENENDPR0C 

960 FQRRX a 0TQ4sIFDX(RX)=2THENTTZ a TT 
1+1 

970 NEXT! IFTTXOITHENENDPROC 

980 F0RRX=0T04sIFDX4RX)*3THENtX=tX+ 

1 

990 NEXTi IFtXOiTHENENDPROC 
1000 F0RRX=0T04sIFDX<RX)=4THENFX*FX+ 

1 

1010 NEXT:IFFX< >1THENENDPR0C 
1020 F0RRX s 0T04iIFDX(RX)*5THENffX*ff 
1+1 

1030 NEXT:IFffX< >1THENENDPR0C 
1040 FQRRX a 0T04ilFDX(RX)«6THENilX a ss 
1+1 

1050 NEXT: IF(OX s lANDssXOO)OR(OX s OAN 
DssX< >1)THENENDPROC 
1060 SCSHX(aX,NX,0)-ptsX:ENDPROC 
1070 DEFPROCFH:VX=FALSE 
1080 IF(DX<01=DX(1)ANDDX(0)=DX(2)AND 
DX(3)< >DX(0)ANDDX(3)=DX < 4))OR <DX(1> =D 
X(2)ANDDX(1> s DX(3)ANDDX(0)< >DX(1> ANDD 
X(0)=DX(4)> OR(DX(2)=DX(3)ANDDX(2) S DX( 
4) ANDDX (OK >DX (2) ANDDX (0) =DX (1)) THEN 
VX=TRUE 

1090 IF(DX(3> s DX(4)ANDDX(31 S DX(0)AND 
DX(1)< >DX(0)ANDDX(11=DX(2))OR(DX(4)=D 
1(0)AND DX(4)»DX(11ANDDX(2)<>DX(41 AND 
DX(2)«DX(3))OR(DX(0) S DX(1)ANDDX(0) S DX 
(3)ANDDX(2)< >DX(0)ANDDX(2)=DX <41)THEN 
VX a TRUE 

1100 IF(DX(1)-DX(2)ANDDX(1)-DX(4)AND 
DX (0)< >DX ( 1> ANDDX ( 0)=DX(3 )) OR(DX(0)=D 
1(2) ANDDX (0) -DX(3)ANDDX (l)ODX (0) ANDD 
X(1)*DX(4))0R(DX!0)*DX(2)ANDDX!0)*DZ( 
4)ANDDX(1)< >DX(1)ANDDX(1) a DX(3))THEN 
VX*TRUE 

1110 IF(DX(0) S DX(2)ANDDX(0) S DX(4)AND 
DX(1)< >DX(0)ANDDX(1) S DX(3))OR(DX f1) S D 
X(3)ANDDX(1)=DX(4)ANDDX(0)<>DX(1)ANDD 
X(0) s DX(2))OR(DX(1) S DX(31ANDDX(1)*DX( 
0)ANDDX(2)< >DX(1)ANDDX 12) a DX(4))THEN 
VX=TRUE 

1120 IFVX-TRUE THEN SCSHX(aX,NX,0)«p 
tsX 

1130 ENDPROC 

1140 DEFPRQCSCORES(NA*(NX))iPRINTTAB 
(0,0);SPC(200) 

1150 PR1NTTAB(0,0);'Q.K,"jNAKNZ);* 
Your scores so far are:":F0RRX=IT014: 


IFSCSHX(RX,NX,11*1THENPRINT;SC$(RX)j * 
,";SCSHX(RX,NX,0);",*; 

1160 NEXT 

1170 PRINTTAB(5,24);SPC(160);TAB(5,2 
4)j"Your forfeits!"iPRINTTAB(5,25);sF 
ORRX a 1TO14:1FSCSHXiRX,NX,1) a -1 THEN PR 
INT;SC$(RX)}“,"j 
1180 NEXT 

1190 PROCDEK1000) iCLS; ENDPROC 
1200 DEFPRQCDEL(ZX):TIME=0:REPEAT:UN 
TIL TIHE a ZX:ENDPROC 
1210 DEFPROCADDiBX‘60 
1220 F0R6X=0T0PX-liF0RHX=lT014:SCX(6 
X)=SCX<6X)+SCSHX(HX,6X,0) 

1230 IFHX a 6AND SCX(BX)>=60THENSCX(BX 
)=SCX <SX)+BX:SCSHX(0,GX,0)=60:SCSHX(0 
, 6X,1) = 1 

1240 NEXT!NEXT:PROCPLTBL:ENDPROC 
1250 DEFPROCPLTBL 

1260 PRINTTAB(11,0);CHRI(141);CHRI13 
3;CHRI(136);"FINAL SC0RES";CHRI137:PR 
INTTAB(11,1);CHR$(141);CHRF133;CHR$(1 
36);"FINAL SCQRES";CHRI137 
1270 FORRX a lTOPZiPRINTTAB(0,3);CHRI( 
135);CHR$157;TAB(5+RX*7,3);CHR$(128+R 
X);NA*(RX-1)!NEXT 

1280 F0R6X"1T06:FORRX*1TOPX:PRINTTAB 
(0,6X+3>jCHRI(135);CHRi(157);CHRIi33; 
SCI(BX);TAB(7+RX*7,6X+3);CHRI(128+RX) 
;SCSHX(6X,RX-1,0):NEXT:NEXT 


1290 FORRX*1TOPX:PRINTTAB(0,10)jCHR* 
135;CHRI157;CHRI133;"BONUS";TAB(7+RX* 
7,10);CHRI(128+RX);SCSHX(0,RX-1,0)iNE 
XT 

1300 FQR6X a 7TQ14:F0RRX a lTQPXiPRINTTA 
B(0,6X+4);CHRI135;CHRI157;CHRI133;SCI 
(BX);TAB(7+RX*7,BX+4);CHR$(128+RX);SC 
SHZ(BX,RX-1 , 0 ) :NEXT:NEXT 

1310 F0RRX=1T0PX:PRINTTAB(0,6X+4);CH 
RI135;CHRI157;CHRI133;"TOTAL";TAB(7+R 
X*7,6X+4);CHRI(128+RX);SCX(RX-1):NEXT 
iPROCMIN:ENDPROC 

1320 DEFPROCNIN!NINI s *":DRI s ""!KX a O: 
F0RRX®1TDPX-1:IFSCX(KX)(SCX(RX)THENKX 
=RX 

1330 NEXT:FORRX*OTOPZ-1:IFRX*KXTHEN1 
350 

1340 IFSCX(RX) a SCX(KZ)THENDRI a DRI+NA 
l(RX)+" and " 

1350 NEXT: IFDRK >" "THENDRI=DRI+NAI(K 
X):PRINTCHRI133;"It's a draw between" 

;CHRIl36;CHRI134;DRI;CHRIl37 ELSENINI 
*NAt(KX):PRINTTAB(5);CHRI133;CHRI136; 
MINI;CHRI137;CHRI134;"wins this gaee" 

1360 *FX21,0 

1370 PRINTCHRI130;"Do you want to pi 
ay again?":A»*6ETI:IF Al a *Y"THENRUN 

1380 ENDPROC 

y 
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1390 DEFPROCTHDIsthronX=thro*Z+liFOR 
ddX=0T04sIF holdXIddXMRUE THEN NEXT 
ELSE XX a RND(6):DX(ddX) a XX:NEXT 
1400 PR0CDR0I!*FX21,0 
1410 PRINTTAB(10,6!j'Y a ACCEPT this 
throw";TAB<10,7);"H * HOLD soae dice 
";TAB(6,8);'SPACE = THROW all dice ag 
ain" 

1420 REPLYX*6ET:IFREPLYX=32THENAX=FA 
LSE ELSEIFREPLYX=89THENAX a TRUE ELSE I 
FREPLYX=72THEN AX=FALSE:lFthro»X<>3 T 
HENPROCHOLD ELSE S0UND0,-1S,3,10:S0UN 
D1,0,172,10:S0T01420 
1430 PRINTTABC10,61;SPC(22);TAB(iO f 7 
);SPC(19>;TAB(6,B);SPC(29>!ENDPR0C 
1440 DEFPROCDRD1:IFthrowX=lTHEN1450 
£LSEFQRpX a 0TQ4:IFholdX(pX! a TRUE THEN 
NEXT ELSE PROCERASEfpXhNEXT 
1450 FQRpX a 0T04:IFholdX(pX)*TRUE THE 
N 1560 
1460 YX a 750 

1470 F0RTX=0TD5: F0RqX a 1TOOSTEP-1:6C0 
LO.qX 

1480 XX*DPOSXipX)-TH50:VDU29,XX;YX; 
s PROCPLOT:BCOLO,0 s PROCLPLOT 81FqX*1 TH 
EN BCOLO,qX 
1490 SOUND1,1,2,5 
1500 NEXT 

1510 FORqX=lTOO STEP-1sBCOLO,qX 
1520 XX=DPOSX(pX)-TX*50:VDU29,XX;YX; 
:PRQCTILT:NE XT:YX=YX-50 
1530 NEXT 

1540 XX»DPOSX(pX)-300:VDU29,XX;YX;:6 
COLO,1:PROCPLOT:6C0L0,0:PROCLPLOT:PRO 
CSPOTS(pX) 

1550 S0UNDi,l,2,5:*FX21,5 
1560 NEXT 

1570 F0RkX a 0T04:holdX(kX)=FALSE:PRIN 
TTAB(kX*6+3,22);' *;:NEXTsENDPROC 
1580 DEFPROCPLOT 

1590 HOVEO, SX: DRAWSX, SX: PL0T85, SX/2, 
SX/2:DRAW-SX/2,SX-SX/2:PL0TB5,0,SX:DR 
AHSX,0:DRAHSX,SX:PL0T85,SX/2,SX/2:DRA 
NSX/2,-SX/2:PL0T85,SX,0:DRAW-SX/2,SX- 
SX/2: DRANSX/2,SX/2:PL0TB5,-SX/2,-SX/2 
!DRAWSX/2,-SX/2:PL0T85,SX/2,SX/2 
1600 ENDPROC 
1610 DEFPROCLPLOT 

1620 HOVE-SX/2,SX-SX/2:DRANSX/2,SX/2 
:DRAWSX,SX:HOVESX/2,SX/2:DRAWSX/2,-SX 
/2:ENDPROC 
1630 DEFPROCTILT 

1640 HOVE-40,0:DRAW-140,0:DRAW-75,-7 
5:DRAW25,-75:0RAWB5,0:DRAW25,75:DRAW- 
75,75: DRAW-140,0:MOVE-40,0:PL0T85,25, 
75 

1650 PL0T85,85,0:MOVE-140,0:HOVE-75, 
75:PL0T85,25,75:HQVEB5,0 sH0VE25,-75:P 


L0T85,-40,0:PLQT85,-75,-75:PL0T85,-14 

0,0:SC0L0,0 

1660 DRAW-20,0:DRAN25/2,-(75/2):HOVE 
-20,0:DRAW25/2,75/2:IF qX a l THEN 6C0L 
0,qX 

1670 ENDPROC 
1680 DEFPROCTOP(tX>:VDU5 
1690 IFtX=1THENHOVE10,87:VDU42 
1700 lFtX=2THENH0VE-30,80:VDU42:HOVE 
45,95:VDU42 

1710 IFtX*3THENH0VE10,B6:VDU42iHOVE- 
32 ,80: VDU42:H0VE44,95:VDU42 
1720 IFtX=4THENHOVE-25,80:VDU42:HOVE 
45,97:VDU42:HOVEO,97:VDU42:H0VE27,80: 
VDU42 

l730 IFtX*5THENH0VE-27,80:VDU42:HOVE 
47,100:VDU42:HOVE-2,100:VDU42:H0VE29, 
80:VDU42:H0VE11,89:VDU42 
1740 IFtX a 6THENH0VE-29,76iVDU42:HOVE 
54,102:VDU42:H0VE9,102:VDU42:H0VE23,7 
6:VDU42:MOVE-12,89:VDU42:H0VE36,89:VD 
U42 

1750 VDU4:ENDPROC 
1760 DEFPR0CSlDE(eX):VDU5 
1770 IFeX=lTHENH0VE61,34:VDU42 
1780 IFeX=2THENH0VE49,48:VDU42:H0VE7 
4,17:VDU42 

1790 IFeX*3THENH0VE73,70:VDU42:H0VE4 
8,-5:VDU42:H0VE60,32:VDU42 
1600 IFeX=4THENH0VE49,45:VDU42:H0VE7 
4,70s VDU42:M0VE49,-5:VDU42:H0VE74,20: 
VDU42 

1810 IFeX s 5THENH0VE48,47:VDU42:H0VE7 
3,68:VDU42:H0VE48,-3:VDU42:H0VE73,18: 
VDU42:H0VE60,32:VDU42 
1820 IFeX=6THENHQVE48,45:VDU42:HOVE7 
3,70:VDU42:H0VE48,20:VDU42:H0VE73,45: 
VDU42:H0VE48,-5:VDU42:H0VE73,20:VDU42 
1830 VDU4:ENDPROC 
1840 DEFPR0CFACE(gX):VDU5 
1850 IFgX=lTHENHOVE-l1,12:VDU42 
1860 IFgX a 2THENHQVE-38,37:VDU42:HOVE 
13,-14:VDU42 

1870 1FgX=3THENH0VE-38,37:VDU42:HOVE 
13,-14:VDU42:H0VE-11,12:VDU42 
1880 IFgXMTHENHOVE-38,37:VDU42:HOVE 
13,-15:VDU42:H0VE-38,-15:VDU42:H0VE13 
,37:VDU42 

1890 !FgX*5THENH0VE-38,37:VDU42:HOVE 
13,-15:VDU42:HOVE-38,-15:VDU42:H0VE13 
,37:VDU42:HOVE-11,12:VDU42 
1900 IFgX=6THENH0VE-38,37:VDU42:HOVE 
13,-15:VDU42:HOVE-38,-15:VDU42:H0VE13 
,37:VDU42:HOVE-38,12:VDU42:HOVE13,12: 
VDU42 

1910 VDU4:ENDPROC 

1920 DEFPROCSPOTS(NX):BCOLO,0:FAX*DX 
(NX):IFFAX< >6THEN1950 
1930 toX=RND(5):IFtoX*lTHEN1930 
1940 IFtoX a 2THENSlX=3 ELSEIFteX*3THE 


NSIX s 5ELSEIFtoX s 4THENSlX*2 ELSESIXM 
1950 IFFAXO5THEN1980 
1960 toX a RND(6):IFtoX s FAX 0RtoX a 2THE 
N1960 

1970 IFtoX a lTHENSIXM ELSEIFtoX a 4THE 
NSIX a 6 ELSEIFtoX=6THENSIX=3 ELSESIX a l 
1980 IFFAX04THEN2010 
1990 toX=RND(6):!FtoX a FAX 0RtoX a 3THE 
N1990 

2000 IFtoX a lTHENSIX a 2ELSEIFtoX a 2THEN 
S1X=6 ELSEIFtoX a 6THENSIX a 5 ELSESIX a l 
2010 IFFAX03THEN2040 
2020 toX a RND(6):IFtoX«FAX 0RtoX*4THE 
N2020 

2030 IFtoX=lTHENSIX a 5 ELSEIFtoX a 2THE 
NS!X a l ELSEIFtoX=5THENSIX*6 ELSESIX a 2 
2040 1FFAX02THEN2070 
2050 toX a RND(6):IFtoX a FAX 0RtoX a 5THE 
N2050 

2060 !FtoX a lTHENSIX a 3 ELSEIFtoX a 3THE 
NSIX»6 ELSEIFtoX a 4THENSIX a l ELSESIXM 
2070 IFFAX01THEN2100 
2080 toX a RND(5):IFtoX a FAX THEN2080 
2090 IFtoX=2THENSIX a 4 ELSEIFtoX a 3THE 
NSIX a 2 ELSEIFtoX=4THENSIX=5 ELSESIX a 3 
2100 XX=DP0BX(NX>-300:VDU29,XX;YX;:6 
COLO,0:PRQCT0P(toX):PR0CSIDE(SIX):PRO 
CFACE (FAD: ENDPROC 
2110 DEFPROCHOLD:#FX21,0 
2120 PRINTTAB(0,24);SPC(160);TAB(5,2 
4);"Hom cany dice do you eant to hold 
?":H0$ a 6ETIsH0X=VAL(HQ$) 

2130 IFHQX<1 OR H0X>5 THEN S0UND0,-1 
5,3,10:S0UND1,0,172,10:G0T02120 ELSE 
VDU7 

2140 F0RUX a lTQH0X:*FX21,0 
2150 PRINTTAB(0,24);SPC(160);TAB<5,2 
4);"Which dice Mould you like to keep 
?':hoX s 6ET:PRINTTAB<0,24);SPC(160):VD 
U7:IF hoX<49 OR hoX>53 THEN 2150 
2160 holdX(hoX-49) a TRUE:PRINTTAB((ho 
X-49)*6+3,22);"H";:NEXT 
2170 ENDPROC 

2180 DEFPROCPASS:REST0RE2580:J* a ":b 
X*0:*FX21,0 

2190 PRINTTAB(0,24);SPC(160!:INPUTTA 
B(5,24)"What Mill you forfeit",B$ 

2200 REPEAT: READJ$:bX a bX+l:llNTILJ4 a 
B$ 

2210 SCSHX(bX,NX,l) a -l 

2220 PRINTTAB(0,24);SPC(160):ENDPROC 

2230 DEFPRQCERASE(aX) 

2240 XX a DPOSX(aX)-300:VDU29,XX;YX;:6 
COLO,0:PROCPLOT 
2250 ENDPROC 

2260 DEFPROCgot(Dl):REST0RE2580 
2270 J$="":bX=0 

2280 REPEAT:READJf:bX*bX+l:UNTILJf* 
D$ OR bX a 14:IF bX*14 AND J*OD* THEN 
ENDPROC 
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2290 IF SCSHX(bX,NX,l)<>0 THEN fX*S 
CSHX(bX,NX,l)!PRINTTAB(0,24) ;SPC(160) 
;TAB(S,24 );*¥ou'vb already had this o 
ns*:S0UND0,-15,3,10:S0UND1,0,172,10:P 
ROCDEL(300) 

2300 ENDPROC 
2310 DEFPROCINST:*FX21,0 
2320 CLSsPRINTTAB(3,3);“This gaae i 
i for 2 to 4 player*.You have five d 
ice and you oust use thee to accrue s 
cores (details later).You aust also 
atteapt to get your 'nuaber' scoresto 
a total of 60 or sore to obtain your 
Bonus.* 

2330 PRINT;"Player one throes first 
.You have three throes,and after the 
first throe, you aay hold any nueb 
er of dice.To do this, INPUT hoe aany 
dice you eant to hold,andthen ehich 
ones they are (1-5) reading left to 
right," 

2340 PRINT;"Keep CAPS LOCK on durin 
g this gaee, as DATA is stored in up 

per case..TAB(5);CHR$130;CHR*136$ 

"PRESS ANY KEY TO CONTINUE."sABI* 

SETIiCLS 

2350 PRINTTAB(3,3);"To";CKR$129?"ACC 
EPT";CHRtl35;"a throe press Y"'TAB(3) 
i"To";CHR»130;"REJECT";CHRH35j"a thr 
oe press SPACE BAR" TAB<3);"To";CHR$l 
31;"HOLD";CHR$135;"any dice press H" 
2360 PRINT;"Once you've accepted yo 
ur throe or had three goes, the Coap 
uter asks you to type in the score 
you eish to take." 

2370 PRINT;"The Coaputer eill then 
check your Anseerto see if it is vali 
d.If so,the score eill be calculate 
d and added to your scoresheet.The 
gaae then passes on to" 

2380 PRINT;"the next player,and cont 
inues going round until all the s 
cores are filled."'"You also have the 
option to";CHRtl34;"PASS*'*To do thi 
s type PASS ehen you are asked ehat y 
ou eant to take froa the throe," 

2390 PRINT;"then decide ehich score 
you eill forfeitThese are displayed 
at the bottoa of thescreen." 

2400 PRINTTAB(5);CHR$133;CHR$136;"P 

RESS ANY KEY TO CONTINUE.";:AB*>6 

ETtsCLS 

2410 PRINTTAB(8,3);CHR$141;CHR$135; 
CHRtl57;CHRtl32; "nuaber SCORES";CHRt3 
2;CHRt156;TAB(8,4);CHRt141;CHRt135;CH 
R«157;CHR$132;"nuaber SCORES";CHRt32; 
CHRt156 

2420 PRINTTAB(3,7)jCHRI129;"ONES... 
.points depend on nuaber of"'CHR$129; 
"ones,froa 1 - 5.";TAB(3,10);CHRtl30; 



"TWOS....as above,points froa 2 - 10. 2490 PRINTCHRI130;"total of all dice 

* .MUST be higher than" CHR*130;"L0." 

2430 PRINTTAB(3,12);CHRI131;"THREES 2500 PRINTTAB(3,20);CHR$131;"L0....A 
..as above,points froa 3 - 15.";TAB(3 ny loe score.Points total of"'CHRI131 

,14);CHR*133;"FOURS..as above,points ;*dice.HUST be loeer than HI.";TAB<3, 

froa 4-20." 22);CHR!133;"YAHS...all dice shoeing 

2440 PRINTTAB(3,16);CHRI134;"FIVES. sixes.Points*CHRtl33;"60." 

..as above,points froa 5-25."$TAB(3,l 2510 PRINTTAB(5 f 24);CHR*135;CHR*157 

8);CHRS129;‘SIXES..as above,points fr ;CHRt132;'PRESS ANY KEY TO CONTINUE., 
oa 6-30.";TAB(5,24);CHR$135;CHR$157;C .."CHR$32;CHR$156;:AB!*6ETtiCLS 

HRI132;"PRESS ANY KEY TO CONTINUE.... 2520 PRINTTAB(6,11);CHR*141;CHR*134; 
"CHRt32;CHRtl56;;AB$*6ETfiCLS CHRfl57;CHR$132;‘You take your scores 

2450 PRINTTAB(8,3);CHR$141;CHR$135;C ";CHR$32;CHRI156;TAB(6,12);CHRtl41;C 

HRtl57;CHRti32;"special SCORES";CHRI3 HRtl34;CHRtl57;CHRtl32;"You take your 

2;CHRtl56;TAB(8,4);CHRtl41;CHRtl35;CH scores ";CHRt32;CHRI156 

Rtl57;CHRtl32;"special SCORES";CHRI32 2530 PRINTTAB(1,14);CHRF141;CHR*134; 

;CHRt156 CHRtl57;CHRtl32;’froa the front face 

2460 PRINTTAB(3,6);CHRtl30;"TWO PAI of the dice.";CHRt32;CHRtl56;TAB(l,15 

RS..of 5 dice,2 pairs i.e 2"'CHRtl30; );CHR414I 5 CHRtl34;CHRtl57;CHR4132;"fr 

"ones and 2 fives,Points 30.";TAB(3,8 oa the front face of the dice.";CHRt3 
);CHRtl31f"TRIPLE..any three dice the 2;CHRtl56 

saae."'CHRtl31;"Points 30.";TAB(3,10 2540 PRINTTAB(3,24);CHRti31;CHRtl57; 

);CHRtl33;"RUN....Each dice different CHR4136;CHRtl29j"PRESS ANY KEY TO CON 
, 1-5 or" TINUE....*CHRt32;CHRtl56;;ABt s 6ETt;CL 

2470 PRINTCHRtl33;"2-6, points 40.*; SiENDPROC 
TAB(3,12);CHRtl34;"FOUR KIND..Any fou 2550 DEFPROCerr 

r dice the saae."'CHRtl34;"Points 40. 2560 PRINTTAB(0,24);SPC(160);TAB(5, 

" 24);"You've aisspelt soaething here 0 

2480 PRINTTAB(3,14!;CHRtl29;"FULL H r left a space.... try again!" 

OUSE.,two dice the saae and"‘CHRtl29; 2570 SOUNDO,-15,3,10:SOUNDl,O,172,lO 

"the other three the saae,i.e.2 three sENDPROC 

s"'CHRtl29;*and 3 fives.Points 40.*;T 2580 DATA ONES,TWOS,THREES,FOURS,FIV 

AB(3,17);CHRtl30;*HI....Any fairly hi ES,SIKES,TWO PAIRS,TRIPLE,RUN,FOUR KI 
gh score.Points* ND,FULL HOUSE,HI,L0,YAHS 
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George Cane puts 
I an old favourite 
on your monitor 


PATIENCE is a BBC Micro version of 
the long established card game which, 
by its nature, is for one player. 

On screen you see seven vertical files 
of cards, all face down bar the last card 
of each file. The number of cards placed 
in each decreases by one as you look 
from left to right, resulting in there being 
only one card in file seven. 

The remaining 24 cards form the 
pack. For convenience the pack is also 
laid in a vertical file on the extreme left 
of the screen and is numbered 1. The 
! seven files of game cards are numbered 
| 2 to 8. 

i Using these numbers you must move 
cards from one file to another in an 
attempt to finish with every card face 
! up, and all the pack used up. 

} The all-important rule is that cards 


LQ 10 REM Patience 

20 REM (0 The Micro User 
30 *Fm,0 

40 M0DE1:VDUlf,2,2,0,0,0:COLOUR130 
:CLS:PROCtexts VDU26:VDU23,1,0;0;0;0;: 
PR0CintroiF0RJ=0TQ12:READA,B,C,D,E,F, 
G,Hs VDU23,224+J,A,B f C,D f E,F t B,H:NEXT: 
DIMCK52) ,FI(52) ,LX(7) ,L$(7) ,NI(7) ,VX 
(52),V$(13):FQRA=1T013:READVI(A):NEXT 
:V*(10)=CHR*236 

50 T$ S CHR$224+CHR$225+CHR$225+CHR$ 
226:M$ S CHR$227+CHRI228+CHR$228+CHR$22 
9iB$=CHR*230+" *+CHRI231:FQRA s 0T07:R 
EADN$(A):NEXT 

60 VDU26:C0L0UR130:PROCtext:PRINT: 
K$="Press any key to start"sPROCsay(3 
)! REPEATB S RND:UNTILINKEYI(1)0*" 

70 K$='Do you like to play strictl 
y ?“SPRINT"!PROCsay(3)iREPEATQ=RND:K 
$*INKEYt(l) iUNTILKIO*": J s 0!lFK$ s "Y‘J 
=1 

80 PRINT":K$=*Hould you like a di 
fficult gaee ? , :PR0Csay(3):REPEAT8=RN 
Di K$=INKEY$ (1): UNTILKK K=8: IFKI** 
Y"K=9 

90 PROCshuff1e:PROCdeals*FX21,0 
100 QNERRQR6DT0590 
110 PROCplayiIFK$='A , 0RK$=“a , THEN90 
!ELSEIFK$="C"0RK$ S!, c "THEN70: ELSEGQT01 
00 


must be placed in the order “low” on 
“high” and in alternating colours. This 
means for example that a red 4 can only 
be placed on a black 5, a black queen 
can only be placed on a red king and so 
on. 

When any vertical file becomes 
empty as a result of moving its last card, 
that empty space can be filled, but only 
with a king. 

Just keep moving the cards until 
either you succeed in using all the pack 
and turning all 52 cards face up in 
ascending order, or you cannot move 
any card according to the rules. 

By the way, the computer won’t let 
you make an illegal move - though 
we’re sure you wouldn’t even try! 

All you need is a little bit of luck . . . 
and an awful lot of patience. 


120 DEFPR0C*indoNS BX=Wi*5iVDU28,BX, 
58,BX+3,3:C0L0UR130:CLS:ENDPRQC 
130 DEFPR0C1ong:VDU28,0,28,3,0:CDL0 
UR3:C0L0UR130:CLS:PRINT'" 1 Pack";;E 
NDPR0C 

140 DEFPROCtext:VDU28,0,31,39,29:00 
L0UR128:CLS:ENDPRQC 
150 DEFPROCsay(c);COLOURc:PRINTTAB( 
20-(LEN(KI)DIV2));K*! -.ENDPRQC 
160 DEFPROCshuf-f 1 e;VDU26:C0L0UR130s 
CLS:Q-RND(3):PROCtext!PRINT j 1FH=0K$=" 
Reeenber, Press A for a nex ga*e.":PR 
OCsay(3)s PRINT's H*1 
170 IFQ<2K$="Just a quick shuffle/ 
:ELSEIFQ<3K$="1'■ shuffling the pack. 
":ELSEK$="I'» giving the cards a good 
shuffle/ 

180 PROCsay(3):F0RA=0T052:F$(A)="": 
NEXT:FQRA=1TQ52:REPEAT:FQRB=0T0Q: DX=R 
ND(52)s NEXT:UNTILF$(D%)="*:C%=(A-1)D1 
V13:VX(DX)=A MODI3:F$(D%)=V$(V%(D%)+1 
)+CHR$(232+CX)+“ ":C%(DX)=CXAND1:NEX 
T:ENDPR0C 

190 DEFPROCpacksIFLX(0)=PXENDPR0C:E 
LSEC0LQUR129s C0L0UR2s PRINTTt" 

"Bi;:ENDPRQC 

200 DEFPROCone:C0LQUR131:C0L0UR2:PR 
INTTIj:EI*VAL(LEFT!(LI(NX),2)):C0L0UR 
CX(EX):PRINTF$(EX)' sC0L0UR2 

:PRINTBJ;:ENDPRQC 



210 DEFPROCtop:COLOUR131s COLOUR1iPR 
INTT$;:COLOURCX(PX)!PRINTFJ(PX>" 

:C0L0UR2:PRINTBt:ENDPROC 
220 DEFPR0C1ast:C0L0UR131sC0LQUR2: P 
RINTMt;;CQLQURCX(PX)iPRINTFtIPX) “ 

*;:C0L0UR2:PRINTBf:ENDPROC 
230 DEFPROCdeal:VDU26:C0L0UR130:COL 
0UR3:CLSzPRINT:F0RA=1T08;PRINT" *?A|■ 
: NEXT: PRINT ll Pack* rPROCtexts PI=52 
: FORUM T07: L$ (NX) ■■ •! F0RA=1 TOK-HZ: LI 
(W> (HZ) *STR* IP3EI lPX-PI-11 NEXT) LZ ( 
W%)=A-1iPROClay:NEXT 
240 L$="“:LX(0>=0:F0RA=1T0PX:IFA<iO 
L$=Lf+“0" 

250 Lt=Lt+STRI(A)!NEXT:LI(0)=Lt:PRO 
Cturn:ENDPROC 

260 DEFPR0C1ay:PROCwindow:AX=LEN!L$ 
(NX)) /2: IFAZ< 1ENDPROC:ELSEIFLZ(NX) *AX 
LX(NZ)*LZ(MX)-1:IFLX(NXX0LX<NX)*0 
270 IFAX=lPRQCone:ENDPROC 
280 1FLX(NX)<1THENC0L0UR131:C0L0UR2 
:PRINTTI;:60T0300:ELSEC0L0UR129;COLOU 
R2:PRINTT$i:IFLX(NX)=1THEN290:ELSEC0L 
0UR0:F0RB*2TQLZ(NZ)sPRINTMl;:NEXT 
290 C0L0URi31:C0L0UR1:PRINTTS; 

300 C0L0UR2:FORBZ=LZ(NX)*2+1T0AX*2: 
EX=VAL(MIDI(LI(HX),BZ,2)):BX=BX+1:C0L 
OURCX (EX): PRINTFt (EX) ,•: NEXT: C0L0UR2: P 
RINT* ";B$;:ENDPROC 

310 DEFPROCkey:REPEAT:Kl=INKEYI(100 
’ :MX=VAL(KI)-1:UNTIL(NX>-1ANDNX<9)DRK 
*=*A"0RK$=“a"0RK$= , C"0RK$=*c":ENDPROC 
320 DEFPROCturn:NX=0:PRQClong:IFPX* 
OENDPROC:ELSELX(0)=LX(0)+3:IFLX(O)>PX 
REPEAT: LX (0i*LX(0)-PX:UNTILLX(0X=PX 
330 IFLX(0)=lPRQCone:GQT0380:ELSEIF 
lX(O)> 16CLS:IFLX(0)=17PRINT'“ 1 ";:E 
wSEIFLX(0)=18PRINT* 1 
340 LX=20:IFLX(0)=PXLZ=25 
350 IFLXIO)>1ANDLX(0XLXCQL0UR131:C 
0L0UR2:PRINTT4; 

360 IFLXIO)>1C0L0UR131:C0L0UR0:A=1: 
s EPEATA=A+l:PRINTN$j:UNTILA*LXORA=LX( 

0) 

370 IFLXIO)>1THENEZ=VAL(MIDI(LI(0), 
LZ(OH2-1,2)):COLQURCX(EX):PRINTFIIEX 
)* "j:C0L0UR2:PRINTBt;:C0L0UR1 

30 

380 PROCpack:ENDPROC 
390 DEFPROCfind:XX=VAL(RI6HT$(L$(NX 
,2)):CN=CX(XX):NX=VX(XX):IFFX>OYZ=VA 
L(MIDt(Lt(FX),LXIFX)*2+l,2)!:CH=CXfYX 
:NX=VX(YX):ENDPROC:ELSEYX=VAL(MIDI(L 
I(FX),LX(FX)*2-1,2)):CN=CX(YX):NX*VX( 
YX):ENDPROC 

400 DEFPROCplay:PROCtext:K$=*Move f 
'ai where to where ?*:PR0Csay(3):PRIN 
":KI="or press 9 to turn the pack.": 
: 9QCsay(3):PRQCkey;IFKt*"A’QRKt s "a*QR 
‘t="C•ORK$=* c■s ENDPROC:ELSE IFNX=8PR0C 
■ext!PROCturn:ENDPROC 



Move from where to where ? 


or press 9 to turn the pack. 


410 IFNX s 0ANDLZ(NX)=0VDU7:Kl sl, Turn 
the pack first!":PROCtext:PRINT:PROCs 
ay(2):60T0500 

420 IFL$(MX) s “"VDU7:Kt s "Thats silly 
!,":PROCtext:PRINT:PROCsay(1):G0T0500 
:ELSEFX=WX:C0L0UR2:PR INTTAB(17,0)N$(F 
%);:COLOURS:PRINT 1 to where ? ";:PR 

OCkey:lFKI="A"ORKI="a"ORKI=*C‘ORKI*“c 
":ENDPROC:ELSEIFNX=8PR0Ctex t:PROCturn 
:ENDPROC 

430 IFNX=0K$="You say not put a car 
d ON the pack!.":VDU7:PROCtext:PRINT: 

:PROCsay(1):B0T0500 
440 PROCfind:IFL$<NX)=*"THEN470:ELS 
EIFMX=12ANDLI(NXX> ,, VDU7: PROCtext: PR 
INT:KI=“A King *ay only go to an eapt 
y space,":PROCsay(1):S0T0500 
450 IFNXONX+lVDU7:PROCtext:Kl s VI(M 
X+l)+"'s *ay only go on *+VI(HX+2)+"' 
s.":PRINT:PROCsay(1):60T0500 
460 IFCN=CN VDU7:PR0Ctext:PRINT:K$s 
■Card colours lay not be the saee.":P 
ROCsay(1>:B0T0500 

470 IFL4(NX)='"ANDJ=1ANDMX<>12VDU7: 
PROCtext:PRINT:K$=“Only a King Bay fi 
11 an eapty space.*:PROCsay(1):60T050 
0 

480 KI=*Fro« "+Nt(FX)+* to "+Nf(MX) 
+'.":PR0Ctext:PRINT:PRQCsay(2) 

490 PROCaove:ENDPROC 
500 FDRDELAY=OT05000:NEXT:ENDPROC 
510 DEFPROCaove:IFFX)0THEN550:ELSE 
PI="“:8$=MIDI(LI(FX),LX(FX)*2-1,2):LX 
(0)=LX(0)-1:PX=PX-1:IFPX=0LI(0)="":G0 
T0560 


520 IFLX(0)>OPI s LEFTI(LI(0),LX(0)*2 
):IFLXIO)=PXTHEN540 
530 Pt=PI+RI6HTIILt(0),LEN(LtCO))-( 
LZ(0)+1)*2) 

540 LI(0)=Pt:LZ(0)=LX(0)-3:GOT0560 
550 S$=RIGHTI(Lt(FX),LEN(LI(FX))-(L 
X(FX)*2)):LI(FX) s LEFTI(LI(FX),LX(FX)* 
2):LX(FX)=LX(FX)-1: IFLX(FXX0LX(FX) S 0 
560 LI(NX)=Lt(NX)+S1:PR0C1ay:NX=FX: 
IFNZ=0PR0Cturn:ENDPROC:ELSEPR0C1ay:EN 
DPROC 

570 DEFPROCintro:C0L0UR130:PRINT''' 
:KI="PATIENCE":PROCsay(3):PRINT ":KI= 
"By 6.T.Cane. Dec. '83.“sPROCsay(3):PR 
INT''''TAB(4);“This is a siaulation o 
f the well“"TAB(3);’known card gaae, 
The only rule is“" 

580 PRINTTAB(6)“'If you can do it, 

it's OK..:KI="H you get stuck, 

press A Tor another ":PR0Csay(3):PRI 
NT':Kl="ga»e or C to change the level 
of play.*:PROCsay(3):ENDPROC 
590 IFERR s 17VDU7:60T0100:ELSEPROCte 
xt:REPORT:PRINT* on line ";ERL:END 
600 DATA4FF,4FF,4FF,4FF,4FF,4C0,480 
,0,4FF,4FF,4FF,4FF,4FF,0,Q,0,4FF,4FF, 
IFF,fcFF,IFF,3,1,0,0,0,0,0,63,64,128,0 
,0,0,0,0,255,0,0,0,0,0,0,0,252,2,1,0, 
0,0,0,0,0,0,480,400,0,0,0,0,0,0,1,3 
610 DATA28,28,107,127,107,8,28,0,8, 
28,62,127,62,28,8,0,28,62,127,127,127 
,28,62,0,54,127,127,127,62,28,8,0,38, 
105,41,41,41,41,118,0,A,2,3,4,5,6,7,8 
,9,T,J,8,K,One,Two,Three,Four,Five,Si 
x,Seven,Eight 
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ADDISON INDUSTRIAL ESTATE, BLAYDON-ON-TYNE, 
TYNE & WEAR, TEL: (091) 414 4611. 

ALL TITLES AVAILABLE FROM TYNESOFT 

POSTAGE AND PACKING FREE 

SUPERFILE 64 

A REALLY USER FRIENDLY DATABASE 
FOR THE 64 

CM64CASS El 7.95a DISK £19.95 

FIREMAN FRED AUF WIEDERSEHEN 

HELP FIREMAN FRED RESCUE CATS, DOGS & HELP OZ BUILD A WALL, DRINK HIS BEER, 

PEOPLE FROM 20 DIFFERENT LOCATIONS. THENFINDHIS WAY HOME 

cow £l5 SPEC £5.95 CM64 £6.95 

spec.K 3.93 cede 

BBC/ELECTRON E.D.S93 


Post to: Database Publications, Europa House, 
68 Chester Road, Hazel Grove, Stockport SK7 5NY. 


NEW! from SQUIRREL Jyp 

Two very original programs 

for BBC B and ELECTRON W* 

POLAR PERILS £7.95 

A 100% m/code multiscreen arcade/adventure game set in 
very hostile Arctic waters. No gun-just your wits and your spear 
for survival against many sub-zero hazards Including ravenous 
polar bears who will hop on to your tiny ice floe without warning! 
Great skill is required to get through to the final screen of this 
very addictive adventure and only then do you realise that your 
difficulties have only just begun as you try to collect ice blocks in 
your kayak for your igloo home! 

MONEYWISE £995 

An up to date yet simple to use personal/home money 
management system based on not one but TWO main accounts 
with extensive analysis, budget forecasting, annual summary 
and 3D BAR CHARTS, Other facilities offered are - SAVE 
complete program to DISC, PASSWORD protected datafiles 
(tape or disc), PRINTOUTS of all accounts and 3D Bar chart 
screen dump. 

Other established classics from SQUIRREL:- 

TRAFALGAR £8,00 

‘A good combination of arcade action and strategy’ - C & VG 
SUPERGOLF £7.50 

‘Ido know a good game when I see one and SUPERGOLF is 
just that!' - Electron User 

BUNFUN £6.50 

‘Fast and furious - a game calling for quick reactions - fun to 
play' - The Micro User 

All programs available on 40T disc - add £2.00 

SCUICCCl-SCfT 

Dept F., 

4 BINDLOSS AVENUE, ECCLES, MANCHESTER M30 0DU 
24 Hour answering service 061-789 4120 

Cheques, P.O.s fjp* 

Same day despatch 


the best 


A must for every parent and teacher, 
the Micro User Educational Special will 
help turn your BBC Micro into a 
learning centre. 

Its 15 original programs have been 
specially chosen to combine educational 
validity with sheer good fun. 

Tested in the classroom, and ranging 
in scope from pre-reading to sixth form 
maths, each program is fully listed and 
explained in detail - in the clear style for 
which The Micro User is renowned. 

And we’ve managed to squeeze all 
the programs from this Micro User 
Special into a software package that’s 
overflowing with educational value. 

Can you or your children afford to 
miss these vital educational resources? 


Please send me the following: 

□ I enclose cheque made payable to 
Database Publications Ltd: 
for £._ 


□ I wish to pay by 
□ Access □ Visa 


Expiry date. 


□ 

Education Special NoT 

£1.95 

□ 

BBC 'B' cassette 

£5.95 

□ 

BBC 40-track disc 

£7.95 

□ 

BBC 80 track disc 

£7.95 

Magazine PLUS software: 


□ 

Magazine and cassette 

£7 

n 

Magazine and disc 

£9 


Please tick box 
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BMX ON TH€ MOON (32K) £7.95 

Smooth scrolling-screen orcode oction. In this gome you control o moon cycle which you use to potrol the surface of 
the moon. Vou must avoid the rocks on the surface, and also the monsters bouncing high in the louu gravity. Vou 
should try to shoot douun the spaceships uuhich fly overhead dropping bombs onto the moon surface-, A further 
hazard are the flying barrels uuhich are often just too high to shoot or jump over, and just too louu to squeeze 
underneath. 

• ••NCUU RC16AS6* • • 


Many of our titles ore available in Boots, LU.H. Smiths, John Menzies, Rumbelouus, Laskys, Currys, 
HMV, Greens at Debenhoms and Spectrum Shops. Also at oil major computer dealers - Cl tec 
Computers, Micro Management, UJest Coast Personal Computers, Microstyle, Clectronequip, 3D 
Computers, Computerama, GTM Computers, etc. Our software is also available through oil the 
major distributors, and directly from us by mail-order. 


UJINGCD WARLORDS (32K) £7.95 

fl fascinating arcade-style game for one or tuuo players. €ach player rides an 
ostrich, and the aim is to knock the enemy riders off by colliding uuith them. 

In a collision the rider uuith the highest jousting pole uuill be victorious. If you 
are successful, the enemy uuill revert to its original form: an egg. The egg 
must be collided uuith to prevent it from hatching. Avoid the lava bath at the 
bottom of the screen, and remember: you can fly better by using stronger 
strokes — imagine you are an ostrich trying to fly! 

(K6VBOARD OR JOVSTICKS) 

• ••N€UU R€IGAS€«• • 



47 SUPERIOR SOFTUJRRC LTD. 

Dept.TMl 1, Regent House, 
Skinner Lone, Leeds 7 
^ / Tel: 0532 459453 

OUR GURRRHT€€ 

(1) fill our softuuare is available before cue advertise. 

(2) fill our.softiuare is despatched uuithin 48 hours by first-class post. 

(3) In the unlikely event that any of our softuuare fails to load, return your 
cassette to us and uue uuill immediately send a replacement. 
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